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Create your own maze on the screen, complete with 
travelling 'eater* 
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Another useful character to add to your stock 
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Leam to understand all those Xs and Ys 
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INPUT IS SPECIALLY DESIGNED FOR: 

The SINCLAIRZX SPECTRUM (16K,48K, 128 and+), 
COMMODORE 64 and 1 28, ACORN ELECTRON, BBC B 
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Programs and text which are specifically for particular machines 
are indicated by the following symbols: 



SPECTRUM 16K, Vg*^ 
48K,128,and + LW 



COMMODORE 64 and 128 



ri ACORN ELECTRON, *^ 

m~M BBC B and B+ «■* DRAGON 32 and 64 



ZX81 
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WHAT IS MACHINE CODE? 



ADVANTAGES OF 



MACHINE CODE OVER BASIC 
UNDERSTANDING OPCODES 
AND ASSEMBLY LANGUAGE 




Faster action and smoother 
movement across the screen are just 
two of the advantages you get from 
machine code in games 
programming. First, though, you 
need to know how machine code 
actually affects your computer 

Most home computer users find BASIC more 
than adequate for all their programming 
needs. It can be used to write simple games, 
business and household programs. What's 
more, it is fairly easy to learn. It is also 
flexible, simple to use and easy to adapt for 
different machines. 

The problem is that it is slow and cumber- 
some. BASIC programs eat up a lot of 
memory. The computer finds these great 
wodges of programming unwieldy to handle, 

Once you get into games programming 
seriously, you will find that using BASIC 
makes movements jerky and allows only one 



thing to happen at a time. If a gun fires, for 
example, the rest of the action has to stop, if 
only for a split second. And if your program is 
burdened down with IF. . .THEN statements, 
the pace will slow to an excruciating crawl. 

This is where the serious games pro- 
grammer leaves BASIC behind and moves 
onto what the arcade-game programmers use, 
machine code, which is — as near as makes no 
difference — the language of the computer 
itself. 



WHAT IS MACHINE CODE? 



The reason BASIC is slow is that it is a high- 
level language. That means it uses English 
words, plus operations that arc familiar from 
ordinary arithmetic, which are easy for 
human beings to learn and understand. 

But your computer does not think in 
English, nor does it understand standard 
human arithmetic symbols. In fact, it does not 
think or understand anything. It operates on 
electrical pulses which represent numbers. 



Machine code is a computer language that 
is composed entirely of numbers which are 
the direct equivalent of those the computer 
uses. So when you use machine code you are 
no longer expecting the computer to speak 
your language. You are, in effect, commu- 
nicating with it in its own language. 

As one example (in this case from the 
Spectrum), machine code looks like this: 

B9 28 08 

In BASIC this is equivalent to: 

100 IF A = CTHEN GOTO 190 

The machine code, as you'll see, is a series of 
two-digit numbers. The letter B in this line of 
machine code is, in fact, a figure, It represents 
1 1 in hexadecimal arithmetic. 

These hexadecimal numbers are fed direct- 
ly into the computer's memory. Operating 
instructions, data, numbers, letters, words 
and memory addresses are all represented in 
machine code by these two digit numbers. 






And the computer can tell the difference 
between instructions, addresses and data only 
by the order in which they occur. For 
example, the first number in any program 
must represent an instruction. If, by mistake, 
you keyed in something as your first entry 
which contained a number, such as an address 
or some data, the computer would try to read 
it as an instruction when the program was 
executed. 

Absolute accuracy is needed when you key 
in these numbers, otherwise the program will 
not work and it may even be wiped from the 
memory when vou try to RUN it. 



ADVANTAGES OF MACHINE CODE 



When you key in a line of BASIC the 
computer has to interpret it into its own 
operating language before it can execute it. 
This is a cumbersome process. It takes up a 
lot of time and as BASIC statements rarely 
translate directly into a single machine code 
procedure, it often results in much more 
involved operating procedures than are really 
necessary. 

When a whole program written in BASIC 
is RUN, each line has to be interpreted into the 
machine's operating numbers, then perfor- 
med, before the computer can go onto the 
next line. If it goes round and round a loop in 
the BASIC program, it will have to interpret 
each line again each time it gets to it. 

Everytime the computer comes across an 
instruction in BASIC it will have to perform 
the following procedure: 

• Look at the instruction 

• Translate the instruction into a series of 
machine code instructions 

• Perform the machine code instructions one 
by one 

• Move onto the next instruction 

It is not difficult to see how slow this 
process can be if it has to be performed over 
and over again. 

It is possible to compile BASIC — that is 
translate the whole program into machine 
code in one go before it is RUN — by the use of 
commercially available compiling programs. 
But this still results in unnecessarily long, 
unwieldy programs. The most convenient 
analogy for the difficulties this interpretation 
process causes is the manual for a car or 
camera that has been written in Japanese and 
translated into English, 

In comparison, the step from machine code 
into the computer's own operating process 
hardly takes any time at all. Each number in 
machine code translates directly into a certain 
configuration of the electrical pulses the 
_ computer operates on, There is no laborious 
I interpretation routine, no substitution of a 



whole set of machine level instructions for one 
written command — just a simple fast, 
number-for-number conversion. 

This means that you can write programs so 
that they will be short and efficient to run. 

As an example of the comparative speeds of 
the two systems, try the following program 
which does the same thing using both BASIC 
and machine code: 
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1 MODE 6 

10 FOR T=&1000TO &101C 

20READA:?T=A 

30 NEXT 

40 PRINT'THIS IS SLOW BASIC" 

60 FOR T= &6100 TO &7FFF 

70?T = ?(T + &2000) 

80 NEXT 

90CLS 

100 PRINT'NOW THIS IS FAST MACHINE 
CODE" 

105DUMMY = 1NKEY(100) 

110 CALL &1000 

120 END 

200 DATA 162,96,160,0,185,0,128,153,0, 
96,200,208,247,232,1 38,24,1 05,32,1 41 ,6, 
16,142,9,16,224,128,208,230,96 



10 CLEAR 29999 
20 FOR n = 30000 TO 30011 
30 READ a 
40 POKE n,a 
50 NEXT n 

60 PRINT "This is BASIC" 
70 FOR n = 16384 TO 22527 
80 POKE n,PEEK (n-16384) 
90 NEXT n 
100 CLS 

110 PRINT "Nov^MACHINE CODE" 
120 PAUSE 100 
130 RANDOMIZE USR 30000 
140 STOP 

150 DATA 33,0,0,17,0,64,1,0,24,237, 
176, 201 
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10 CLEAR 200,31000 

20 DEFUSR0 = 31000 

30 FOR N = 31000TO 31015 

40 READ A 

50 POKE N,A 

60 NEXT 

70 CLS0 

80 PRINT @0,"THIS IS BASIC!" 

90 FOR N = 1 TO500:NEXT 

100 FOR N = 1056 TO 1535 

110 POKE N,PEEK(N + 34000) 

120 NEXT 

130 FOR N = 1 TO1000:NEXT 



140CLS0 

150 PRINT @0,"THIS IS MACHINE 

CODE!" 
160 FOR N = 1 TO1000:NEXT 
170 N = USR0{0) 
180 FOR N = 1 TO 2000: NEXT 
190 DATA 206, 136, 240, 142, 4, 

32,166,192,167,128,140,6,0, 

38,247,57 

SE 

10 PRINT "Qg)THIS IS SLOW BASIC": 

POKE 53280,7:POKE 53281 ,7 
20 FOR Z = TO 959:POKE 55336 + Z,1 : 

POKE 1 064 + Z,46:N EXT Z 
30 FOR Z = 1 TO 1000:NEXTZ 
40 PRINT "□" 
50FORZ = 1TO1000:NEXTZ 
100 PRINT"@N0W THIS IS FAST MACHINE 

C0DE":P0KE 53280,1 0:POKE 

53281,10 
105 FOR Z = 1 TO 2000: NEXT Z 
110 FOR Z = TO 19:READ X:P0KE 832 + Z, 

X:NEXTZ 
120 SYS 832 
130 DATA 162,0,169,46,157,40,4,157, 

0,5,157,0,6 
135 DATA 157, 232,6,232,208,241,96 
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10 PRINr'Q^HTHIS IS SLOW 

BASIC": POKE 36879,8 
20FORZ = 0TO483:POKE 

7702 + Z,46:NEXTZ 
30 FOR Z = 1 TO1000:NEXTZ 
40 PRINT "p" 
50 FOR Z = 1 TO1000:NEXTZ 
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100 PRINT"@NOW FAST MACHINE CODE" 
105 FOR Z = 1 TO 2000: NEXT Z 
110 FOR Z = TO 13:READX:POKE 

832 + Z,X:NEXTZ 
120 SYS 832 
130 DATA 162,0,169,46,157,22,30, 

157,0,31,232,208,245,96 

As you will see, all the program does is to fill 
the screen with rubbish. But you will see how 
much quicker the machine code routine per- 
forms the task. 



ASSEMBLY LANGUAGE 



One disadvantage of machine code is that it 
is extremely difficult to write and debug. 
Few people can remember the codes for the 
various instructions. Even if you can, the 
operation codes — or opcodes — are indistin- 
guishable from the numbers that are fed in as 
data or addresses. So you can't understand 
any section of a machine code program unless 
you read the whole program from the begin- 
ning, which is no help when you are trying 
to pick out bugs. 

The opcode numbers differ considerably 
between different microprocessors, so that 
translating machine cdde programs from ma- 
chine to machine can be very difficult. 
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One way round some of these problems is 
to step back and write your program in a 
language one level higher than machine code. 
This is known as assembly language, explained 
in detail in later articles. 

In assembly language, machine code oper- 
ations are represented by abbreviations. For 
example, LD means load and J means Jump 
(though the syntax of these instructions varies 
between microprocessors). 

With some practice it is as easy to read 
assembly language as it is to read BASIC, 
though understanding the structure of the 
language is a bit more complicated than the 
equivalent BASIC. 

The disadvantage of assembly language is 
that the computer cannot read it directly. It 
has to be assembled by an assembler — which is 
a program in either BASIC or machine 
code — before it will work. 

But this is a simple process compared with 
interpreting BASIC. Assembly language is 
equivalent to machine code — that is, every 
assembly language instruction corresponds 
directly with a machine code operation. It can 
be translated word for word, number by 
number, instruction by instruction into the 
computer's operating code. 

The assembler also translates the whole 
program in one go before the computer 
executes it, rather than interpreting it line by 
line while the program is RUNning. This gives 
it further speed advantages. 

The BBC and Electron computers come 
with an assembler program built in. For the 
Spectrum, Dragon, Tandy and Commodore, 
assemblers are available commercially; or 
you can use those provided in a later issue of 
Input. But for the moment, if you do not 
have an assembler, you can hand-assemble 
programs. Even on the simplest programs you 
will find it easier to write them in assembly 
language, then translate them by hand from 
the machine code tables given in any machine 
code book for your machine. 

All this might seem like a lot of bother. But 
before you decide this is so, try out these 
machine code programs. Each is fed in as 
DATA statements in BASIC programs. The 
DATA is listed at the end. 



10 CLEAR 29999 
20FORn = 30000TO30020 
30 READ a 
40 POKE n,a 
50 NEXT n 

60 RANDOMIZE USR 30000 
70 GOTO 60 

80 DATA 17,0,88,46,0,237,95,71,58,140, 
92,1 28,230,63,1 03,1 ,0,3,237,1 76,201 



10 FOR T = 4047TO 4123 

20READA:?T = A 

30 NEXT T:CALL 4047 

40 DATA 160,0,185,0,128,41,7,9,144,153, 

0,1 24,200,1 69,255,1 53,0,1 24,200,1 92, 

0,208,235 
50 DATA 174,211,15,232,224,255,208,2,162, 

128,142,211,15,174,218,15,232,224, 

128,240,8,142,218,15 
60 DATA 142,224,15,208,206,162,124,142, 

21 8,1 5,1 42,224,1 5,24,1 73,21 7,15,1 05,1 , 

41,1,141,217,15,141,223,15,76,209,15 
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10 CLEAR 200,31000 
20 DEFUSR0 = 31000 

30 FOR N = 31 000 TO 31 020 

40 READ A 

50 POKE N,A 

60 NEXT 

70N = USR0(0) 

80POKE32767,RND(256}-1 

90 FOR N = 1 TO100:NEXT 

100 GOTO 70 

110 DATA 142,4,0,206,136,184,166,192, 

1 84,1 27,255,1 38,1 29,1 67,1 28,140,6,0, 

38,242,57 



20 F0RZ=1 TO 26 

30 PRINT "aDDDDDDDDDD 

DDDDDDDDDDDDDDD 

DDDDDDDDDDDDDD □"; 
40 NEXT Z 
100 FOR Z = TO 25:READ X:P0KE 832 + 

Z,X:NEXT Z 
110SYS832:FORZ=1 TO50:NEXTZ: 

GOTO 110 
120 DATA 162,0,200,192,7,208,2,160, 

0,152,157,0,216,157,0,217,157,0,218 
130 DATA 157,232,218,232,208,233,96 



20 FOR Z = 1 TO 25 

30 PRINT "annDDDDDDDD 

□ □□□□□□□□Q □ □"; 
40 NEXT Z 
100FORZ = 0TO19:READX:POKE 

832 + Z,X: NEXT Z 
110 SYS 832:FOR Z = 1 TO 50: NEXT Z: GOTO 

110 
120 DATA 162,0,200,192,7,208,2, 

160,0,152,157,0,150 
130 DATA 157,0,151,232,208,239,96 

Now — just for comparison — see if you can 
write a similar program in BASIC. We think 
you will see our point. Later on, we shall look 
at what is happening here. 
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Sophisticated maze games require 
long programs. But you can design 
simple ones— and learn important 
principles— with not much more 
than a loop and a DATA statement 



68 



Maze games have a perennial fascination for 
computer owners, and variations on that well- 
known gobbling man continue to pour from 
the software houses. 

This article shows you how to jump on the 
bandwagon in a small way by writing a maze 
game of your own. 

The maze in this first attempt includes no 
'enemies' or obstacles, which would require a 
big lump of program. But it does show how to 
program so that your main character cannot 
walk through the walls — the basis of all maze 
games. And it includes scoring and timing, 
and a 'best score' routine, to add competitive 
interest. 



The easiest way to understand how the 
Spectrum maze game works is to enter it in 
stages. So start by building the maze itself: 

100 FOR n = 3T0 17 

110 READ a$ 

120 FOR m = 7 TO 21 

130 PRINT AT n,m;"." 

140 IFa$(m-6) = "p" THEN PRINT 

PAPER 1; INK 1;ATn,m;"D" 
150 NEXT m 
160 NEXT n 

DATA"ppppppppppppppp" 
9010 DATA "p p" 



9020 DATA " p . p p . p p 



9030 DATA " p 



9040 DATA ' 
9050 DATA ' 
9060 DATA ' 



P- • 
■ -P 
PPP 



9070 DATA u pppp.pp 
9080 DATA ' 
9090 DATA ' 
9100 DATA' 



p. . . . 

p. PPP 
p . . . p 



91 10 DATA "p. p. 
9120 DATA "p. pp. pp 
9130 DATA "p 



pp.pp 

■ ■ p. 
p. .. 
ppp 



pp.pppp 
P 

P 
P 



PPP 
p. . 

• -P 
PP-PP 



2;AT x,y;"*" 



P 
P 

P 
P 
P 
P 
91 40 DATA "ppppppppppppppp 

Lines 100, 120, 150 and 160, using a pair of 
the now-familiar FOR . . . NEXT loops, set out 
the boundaries of the maze. Line 130 PR I NTs a 
full stop in each square. 

Then Lines 110 and 140 take over, 
READing the DATA in Lines 9000 to 9140 and 
replacing the full stop with a space — but in 
blue ink on blue paper — everywhere that the 
DATA pattern shows the letter p. They can do 
this because the Spectrum will not normally 
accommodate two characters at the same 
location, so the second one replaces the first. 



CREATING THE 'EATER - 



A maze is pretty useless, however, without 
someone or something to move around in it. 
So RUN the program and then add: 



50 LET x = 1 

60 LET v = 14 

1000 PRINT PAPER 6; 

1 01 LET xx = x 

1020 LET yy = y 

1 030 IF INKEYS = "" THEN GOTO 1 030 

1040 IF INKEY$ = "p" AND ATTR (x-1,y) 

<>9THENLETx = x-1 
1050 IF INKEY$ = "I" AND ATTR 

<>9 THEN LET x = x + 1 
1060 IF INKEY$ = "z" AND ATTR 

<>9THEN LET v = y — 1 
1070 IF INKEY$ = "x" AND ATTR 

<>9 THEN LET y = y + 1 
1080 PRINT INK 7;ATxx,yy;"D" 
1090 GOTO 1000 
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If you've already tried your hand at keyboard 
control (pages 54 to 59), most of these lines 
will already be familiar. Like all famous 
games characters, our asterisk friend is 
hatched at x,y and is moved around — with 
your help — by a series of INKEYS lines. 

Here, however, there is a vital difference: 
he can move onto a particular square only if it 
isn't blue. That is, if ATTR does not equal 9 — 9 
being the numerical value of the colours in 
which you have craftilv PRINTed the lines of 



your maze. 




1. A Spectrum maze needs only a short program 






THE PRINCIPLES OF CREATING 



A MAZE GAME 



SETTING OUT A MAZE USING 
LOOPS AND DATA STATEMENTS 



SCORING AND TIMING 



HOW TO MAKE A CHARACTER 

MOVE THROUGH THE MAZE 

MAKING YOUR MAZE WALLS 

'CHARACTER PROOF' 

DESIGNING YOUR OWN MAZE 



In case you feel like creating a maze of a 
different colour, here is how you work out the 
value of ATTR: 

1 Take the code for the INK colour, as 
printed on the computer keyboard — in this 
case, 1. Result, 1. 

2 Take the code for the PAPER colour — in 
this case, 1 — and multiply by 8. Result, 8. 

3 Add 64 if the area concerned is BRIGHT. 
Result, in this case, 0. 

4 Add another 1 28 if the area concerned is 
in FLASH. Result, in this case, 0. 

Then you add all the numbers together. 
The result is the ATTR number. 

ATTR on the Spectrum has other uses than 
preventing a character from entering a pro- 
hibited area. In a bigger maze, for example, 
you could use the same idea to make a 
character explode or burn up if it did enter the 
forbidden zone. For a red INK, red PAPER 
maze you would need a line starting 

IF ATTR (x,y) = 18 THEN ... 

In the meantime Lines 1010, 1020 and 1080 
define the position which your character 



just left, and obliterate, by PRINTing a space, 
the full stops he has 'eaten'. These are useful 
lines in any game, but note where they 
come — the first lines just before the INKEY$ 
'action', the final line straight after it. 

Note that Line 1090 is only temporary and 
will be overwritten later. Its purpose is to 
allow you to RUN the program and test it — 
without the loop that this sets up, the charac- 
ter would only move one square. 



SCORING AND TIMING 



Now you have the makings of a simple game. 
To make it playable — in the absence of 
'enemies', which would require a long lump 
of program — the best thing is a scoring and 
timing routine. So add these extra lines: 

10 LET bt= 100000 

40LETs=0 

990 POKE 23672, 0: POKE 23673, 

1025 IF S = 1 1 THEN GOTO 2000 

1090 IF ATTR (x,y)<>63 THEN LET 

s = s + 1: BEEP .005,10 
2000 LET t = (PEEK 23672 + 256* PEEK 



23673)/50 
2010 PRINT AT 1,6;t;"USEC0NDSD" 
2020 IF t < bt THEN LET bt = t 

2030 PRINT AT 1 9,4;"BEST TIMED"; 
bt;"D SECONDS" 

To test this you need to add a temporary line. 
Remember to delete it later: 

1100 GOTO 1000 

The scoring bit is quite straightforward. Line 
40 sets the initial score at zero. Line 1090 
adds 1 to the score each time your character 
eats a full stop, or rather, each time it crosses a 
square whose INK and PAPER are not both 
white— ATTR, again. And Line 1025, which 
comes into action when all have been eaten, 
telts the computer to check out (at Line 2000) 
how long the player has taken. 

The timing part is a little more difficult 




until you understand PEEKs and POKEs, ex- 
plained fully in a later article. But, in brief, 
Line 990 sets the Spectrum 'clock' at zero by 
POKEing into the relevant memory loca- 
tions. Line 2000 counts the number of 
frames displayed on your TV screen since the 
game started, then divides by 50 — frames 
per second on a British TV screen. 

At the same time, Line 10 sets the original 
'best time' at 100,000— far longer than any- 
one is likely to take, so that it must be beaten — 
while Line 2020 compares the newest time 
with 'best time'. 



ANOTHER GO? 



To give the player the chance to try again, you 
will need these extra lines. First enter 
CAPS SHIFTI and [BREAK], then [ENTER]. 

2040 PRINT AT 21,2;"PRESS ANY KEY 

TO PLAY AGAIN" 
2050 IF INKEYS < > "" THEN GOTO 2050 
2060 IF INKEY$ = "" THEN GOTO 2060 
2070 RESTORE 
2080 GOTO 40 

RESTORE resets to the beginning of the DATA 
list. 



OTHER MAZES 



If you want to try other mazes within the same 
dimensions as this one, you can do so simply 
by changing the pattern of letter p's in the 
DATA statements, Line 9000 onwards. For a 
bigger or smaller maze, you would also have 
to redefine the boundaries by altering the 
numbers in Lines 100 and 120. 

If you do this, make sure you Have enough 
DATA to fill the whole maze, or you will get an 
error report before the maze even begins to 
appear on your screen. 



The Acorn maze program is built up in three 
parts. The first part draws the maze on the 
screen, the second part lets you move your 
'man' about, eating up all the dots, and the 
third times the game and PRINTs the score. 
Here is the first part. Type it in, then RUN 
it, and you should see a green maze on the left 
of the screen with yellow dots marking the 
pathways through the maze. 

10 MODE 1 

30 VDU 23,224,255,255,255,255,255, 

255,255,255 
40VDU19,1,4;0;19,3,5;0; 
50CLS 
80 VDU 5 
85 D 

110 FOR row = 8TO 23 
120 READ A$ 
130 FOR column = 1 TO 19 
140 MOVE column*32, row'32 
150 IF MID$(A$,column,1) = "A"THEN 

GCOL 0,1 :PRINT CHR$224 ELSE GCOL 

0,2: PRINT"." 
160 NEXT column 
170 NEXT row 
460 □ 
500 DATA AAAAAAAAAAAAAAAAAAA 

510 DATA A AAA A 

520 DATA A. AA. AA AA . AA.A 

530 DATA A. A AAA A. A 

540 DATA A. ..A. A A. A. ..A 

550 DATA A.AAA.AA.A .AA.AAA.A 

560 DATA A. ..A A. ..A 

570 DATA AAA. . .A. AAA. A. . .AAA 
580 DATA AAA . . . A . AAA . A . . . AAA 



590 DATA A. ..A A. ..A 

600 DATA A.AAA.AA.A.AA.AAA.A 

610 DATA A. ..A. A A. A. ..A 

620 DATA A. A AAA A. A 

630 DATA A, AA . AA AA . AA . A 

640 DATA A AAA A 

650 DATAAAAAAAAAAAAAAAAAAAA 

The main part of this program is the list of 
DATA statements. These define the shape of 
the maze, with As representing the walls and 
each line of DATA representing a single line of 
the maze. This is a very convenient way of 
writing out the DATA, as you can see at a 
glance the shape of the maze and you can also 
see mistakes more easily. 

All the rest of the program does is convert 
each A into a blue block and PRINT it in the 
right position on the screen. It sounds easy, 
but there are one or two complications. 



HOW IT WORKS 



First of all there is no block character on the 
keyboard so you have to make your own. The 
simplest way is to define a solid UDG 
character using VDU 23, as Line 30 does. 

The next problem is that the colours 
available in Mode 1 are black, red, yellow and 
white, whereas we want a green maze. Line 40 
uses VDU 1 9 to redefine the colours so that red 
appears as blue, but don't worry if you don't 
understand how this works at the moment. 
Working with colours is the subject of a whole 
separate article. 

The last complication is the VDU 5 in Line 
50. This prints the text at the graphics 
cursor so that all text is positioned using the 
graphics coordinates. This means that, in- 



70 




2. The Dragon version also displays your time 




mmJMtiMtmti 



mi 



stead of using PRINT TAB(column,row), you 
have to use MOVE column"32,row*32 and then 
PRINT. (The number 32 converts the text 
coordinates into graphics coordinates. For 
example, there are 40 columns in Mode 1. So 
if you multiply 40 by 32 you get 1280 — 
the width of the graphics screen.) 

Now that the preliminaries are over, the 
program can get down to drawing out the 
maze. It is drawn half-way down on the left- 
hand side of the screen, between rows 8 and 
23 and columns 1 to 19. 

Lines 110 to 170 work like this. Line 110 
takes each row of the maze, then Line 120 
reads the DATA for this row and calls it A$. 
Line 130 takes each column in the row and 
Line 140 moves the cursor to that position. 
Line 150 does all the work; if the character is 
an A it PRINTs a blue block; otherwise it 
PRINTs a yellow dot. MID$ is used to step 
along the line of DATA one character at a time. 



MOVING THROUGH THE MAZE 



So far all the program does is draw the maze. 
Now enter these next few lines to move the 
asterisk and eat up the dots. 

60 *FX11,15 

70 *FX12,15 

190 LET X = 10*32 : LET Y = 16*32 

200 MOVE X,Y: GCOL 0,0: VDU 224,8: 

GCOL0.3: PRINT"*" 
220 LET LX=X: LET LY = Y 
230 LET K$ = GETS 
240 IF K$ = "Z" AND P0INT(X - 32,Y) < > 1 

THENX = X-32 
250IFK$ = "X"ANDPOINT(X + 32,Y)<>1 

THENX = X+32 



260 IF K$ = "L" AND P0INT(X,Y - 32) <> 1 

THENY = Y-32 
270 IF KS = "P" AND P0INT(X,Y + 32) < > 1 

THENY = Y + 32 
290 MOVE LX,LY :GCOL0,0 :VDU224 
300 GOTO 200 

Now RUN the program. Z, X, P and L move the 
asterisk as usual. 

These lines are very similar to the routine 
for moving a character given on pages 1 1 and 
12. But this time the program has to prevent 
the asterisk moving through the walls of the 
maze. This is what the POINT function is there 
for. 

P0INT(X,Y) checks the graphics colour at 
the point X,Y. (It cannot check the text 
colour — the computer has no function that 
does this. And that is why the text was printed 
at the graphics cursor: so that the text 
characters — the block and the dot — could be 
PRINTed in graphics colours and their num- 
bers checked.) 

In this program, POINT works like this. 
When a key is pressed, it looks at the colour of 
the square you want to move to and lets you' 
move as long as the colour is not blue — that 
is, its number is not 1, If the square is blue, 
the line is ignored and the asterisk stays where 
it is. 

Note the 32s creeping in again. Remember 
that a jump of 32 is equivalent to moving by 
one character position. 

As for the other lines, Line 190 sets the 
start position of the asterisk. Line' 200 moves 
there and immediately PRINTs a black block, 
using VDU 224 in order to wipe out any dot 



that may be there. (VDU 224 means the same as 
PRINT CHR$ 224 but in this case is more 
convenient.) The other number, 8, moves the 
cursor back again so it is in the right position 
to PRINT the asterisk. Line 290 blanks out the 
asterisk's previous position. 

If you RUN the program now you'll find the 
asterisk moves rather slowly and hesitates 
each time it changes direction. The two other 
extra lines, Lines 60 and 70, speed up the 
auto-repeat on the keys so the asterisk moves 
more quickly. *FX 1 1 ,15 sets the delay before 
auto-repeat starts to 15 hundredths of a 
second, while *FX 1 2,1 5 sets the rate of repeat 
to be the same. 

There is one problem, though. When you 
finally press | ESCAPE | you'll find the *FX 
commands .are still in operation, making it 
more difficult to type because the keys repeat 
too fast. LIST, for example, can come o ut as 
LLIISSTT! The thing t odoisp ress |BREAK| , then 
type OLD and LIST. |BREAK| resets the FX to 
normal. 



TIMING THE GAME 



The program is not complete yet as there's no 
timing and nothing happens when you've 
eaten all the dots. But the next few lines 
remedy this: 

20 LET besttime = 999999 
90 LET dots = 
100 RESTORE 
180 TIME = 

210 IF dots = 154 THEN GOTO 310 
280 IF POINT'X-f- 12,Y-20) = 2 THEN 
dots = dots + 1 : SOUND 0,-15,1,1 
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310 LET time = TIME/1 00 

320 IF besttime > time THEN besttime= 

time 
330 MOVE X,Y :GCOL0,0 :VDU 224 
340 *FX12,0 
350 VDU 4 

360 VDU 23;8202;0;0;0; 
370 FOR delay = 1 TO 1000: NEXT 
380 COLOUR3 

390 PRINT TAB(24,10) "TIMED =" 
400 PRINT TAB(24,11);time;"D sees" 
410 PRINTTAB(24,13) "BESTTIME" 
420 PRINT TAB(24,14);besttime;"Dsecs" 
430 PRINT TAB (24,20) "PRESS RETURN" 
440 PRINT TAB (24,21) "TO PLAY AGAIN" 
450 IF GET=13 THEN GOTO 50 ELSE 

GOTO 450 

First of all the best time is set to 999,999 
seconds and the number of dots eaten is set to 
zero. Line 100 is necessary to let the program 
reREAD the DATA each time the game is 
played. Without it you would get an OUT OF 
DATA error after the first game. 

Line 280 is the tricky one. This looks to see 
if you are moving over a dot. It uses the POINT 
function again and this time checks the colour 
of the square where the full stop should be. If 
it is colour 2 (yellow in this case) then the 
player's score is increased by 1 and a munch- 
ing sound is made. If the asterisk is running 
over a blank square then this line is ignored. 
Fig 3 explains how to work out the position of 
the dot. 

As soon as all the dots have been eaten, 
Line 210 makes the program jump to Line 
3 10 which stops the timer and divides TIME by 
1 00 to convert it to seconds. This time is then 
compared with the best time, in Line 320, and 
if it is faster it calls this new time the best 
time. Line 330 then blanks out the asterisk. 



The next two lines are just 'housekeeping' 
lines. *FX12,0 resets both the previous *FX 
commands to normal and VDU 4 undoes the 
effects of VDU 5. 

Finally, your time for this game and the 
best time are PRINTed out to the right of t he 
maze and you are invited to press |RETURN| to 
play again. Line 450 waits for a key and if it is 
IHETURNI — code 13— then the game restarts. If 
any other key is pressed the progra m just 
keeps waiting and you'll have to press [BREAK| 
when you've really finished. 



DESIGNING YOUR OWN MAZE 



To design your own maze, draw out the shape 
on graph paper first. Then convert all the 
sections of wall to As and all the spaces to dots 
and you've got your DATA statements for your 
own game. 

If your new maze is larger or smaller than 
the original one, you'll have to alter some lines 
in the program as well. These are the lines 
which set up the FOR . . . NEXT loop to READ 
the DATA— Lines 110 and 130. 

The number of dots in the new maze will 
almost certainly be different, so change Line 
210 as well. 

That should be all, but if the new maze is a 
lot wider you may need to alter the position of 
the text that PR I NTs out your time. Play 
around with the screen display until you get 
something that looks right. 
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These first few lines set up the maze itself: 

30 CLS4 

40 LET P= 297 

1000 FOR N = TO 15 

1010 READ A$ 

1020 PRINT© N"32,A$ 



1030 FOR M = TO 18 
1040IFPEEK(1024 + N*32+M) = 65 
THENPOKE(1024 + N*32 + M),175 
1050 NEXT M 
1060 NEXT N 
2000 DATA AAAAAAAAAAAAAAAAAAA 

2010 DATA A AAA A 

2020 DATA A. AA . AA AA . AA . A 

2030 DATA A . A AAA A . A 

2040 DATA A, ..A. A A. A. ..A 

2050 DATA A . AAA . AA . A . AA . AAA . A 

2060 DATA A. ..A A. ..A 

2070 DATA AAA. . .A. AAA. A. , .AAA 
2080 DATA AAA. . .A. AAA. A. . .AAA 

2090 DATA A. ..A A. ..A 

2100 DATA A.AAA.AA.A.AA.AAA.A 

2110 DATA A. ..A. A A. A. ..A 

2120 DATA A. A AAA A. A 

2130 DATA A. AA . AA AA . AA . A 

2140 DATA A AAA A 

2150 DATA AAAAAAAAAAAAAAAAAAA 

The shape of the maze is contained in the 
DATA lines— Lines 2000 to 2 150. At this stage 
the boundaries are represented by As. 

Before the DATA is read, Line 30 clears the 
screen and colours it red, whose code number 
is 4. Line 40 sets the asterisk's start position. 

Lines 1000 to 1060 are the section which 
actually plots the maze on the screen. Each 
time the FOR . . . NEXT loop in Lines 1000 and 
1060 is executed the program takes the next 
line of DATA. Line 1010 READs the DATA and 
calls it AS, and Line 1020 displays it. 

But a collection of dots and As on the screen 
doesn't look much like a proper maze. So 
Line 1040 examines the part of the machine's 
memory which corresponds to each screen 
'location. If the memory location contains the 
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number 65, it means that there is an A on the 
screen. If there is, it is changed to a blue block 
(code 175). Lines 1030 and 1050, meanwhile, 
provide the loop which allows Line 1040 to 
scan each location in turn. 

Now add these lines and you'll be able to 
move a man around the maze. On the Tandy, 
change the 223s in Lines 1100 and 1110 to 
247. Change the 239 in Line 1120 to 251, and 
change the 247 in Line 1130 to 253. 

1080 PRINT® P,"*"; 

1090 LET LP=P 

1 1 00 IF PEEK(340) = 223 AND PEEK 

(1023 + P)<>175 THEN LET P = P-1 
1 1 1 IF PEEK(338) = 223 AND PEEK 

(1025 + P)<> 175 THEN LET P = P + 1 
1120 IF PEEK(338) = 239 AMD PEEK 

(992 + P)<>175 THEN LET P = P — 32 
1 1 30 IF PEEK(342) = 247 AND PEEK 

(1056 + P)<>175 THEN LET P = P + 32 
1150 PRINT® LP," □"; 
11 70 GOTO 1080 

This section of program is an adaptation of 
the 'moving around the screen' program on 
page 13. There are a few differences, though. 
The man will be moved only if the screen 
location he is trying to move into doesn't 
contain a blue block. For example, Line 1 100 
checks two memory locations — the one which 
corresponds to the Z key and the one which 
corresponds to the screen location the man is 
about to enter. If the Z key (code 223) is being 
pressed and the screen location doesn't con- 
tain a blue block (code 175) he can move. 

The movement control keys are exactly the 
same as those used previously — Z for left, X 
for right, P for up, and L for down. Try 
guiding the asterisk round the maze so that 
the dots are obliterated. 



HOW FAST ARE YOU? 



Add these lines and you'll be able to time how 
long it takes you to squash all the dots: 

20 LET FA = 999999 

50 RESTORE 

60LETD = 

1070 TIMER = 

1140 IF PEEK(1 024+ P) = 110 THEN 

PLAY "T80 B": LET D=D + 1 
1160 IF D = 153 THEN GOTO 1180 
1180 PRINT® P,"D"; 
1190TI=TIMER/50 
1200PRINT@52,"TIME = "; 
1210PRINT@84,TI;"SECD"; 
1220 IF FA >TI THEN FA = TI 
1230 PRINT@212,"BEST TIME"; 
1240PRINT@244,FA;"SECD"; 
1250PRINT@340,"PRESS"; 
1260PRINT@372,"ENTER"; 
1270 PRINT@404,"TO START"; 
1280PRINT@436,"AGAIN"; 
1290 LET INS = INKEY$:IF INS = "" 

THEN GOTO 1290 
1 300 IF INS = CHR$(13) THEN GOTO 40 
1310 GOTO 1290 

When you RUN the program you'll see the 
time taken to remove the dots shown to the 
right of the maze, and the best time. 

The fastest or best time is set to 999,999 
seconds initially by Line 20. Line 60 sets the 
score to zero, and Line 1070 resets the timer. 

Line 1140 examines the screen location 
that the asterisk is in to see if it contains a dot. 
If it does, the machine's PLAY command 
is used to make a 'blip' as the dot is run 



over. At the same time it adds 1 to D, the 
number of dots that have been wiped out. 

Line 1 160 checks if no more dots remain on 
the screen. If none remains, the program 
jumps to Line 1 180which deletes the asterisk. 

Tl = Tl M ER/50 in Line 1 1 90 stops the timer 
and divides the reading by 50 to convert it 
into seconds. Lines 1200 and 1210 display 
the time on the screen. 

Line 1220 checks if the fastest time (FA) is 
longer than the time that has just been 
achieved (Tl). If it is, the best time is made 
equal to the last time. Lines 1230 and 1240 
display the best time , before the play er is told to 
press the | ENTER key to start. 

Line 1 290 waits for a key to be pressed, and 
Line 1300 checks if | ENTER | has been pressed. 
If it has, the game restarts, the RESTORE in 
Line 50 restoring all the DATA so that the 
maze can be PRINTed again. If the keypress 
was anything other than | ENTER) the program 
goes back to w aiting fo r another keypress. 

Pressing the I BREAK | key will end the game. 



PLANNING YOUR OWN MAZES 



Use graph paper to design your own mazes. 
Bear in mind the size of the text screen on the 
computer— 32 by 16 characters. 

Once you've designed the new maze, just 
alter the contents of the DATA lines at the end 
of the program. If the new maze is larger or 
smaller than the old maze you'll also have to 




change the FOR lines (Lines 1000 and 1030). 
Count how many screen lines the new maze 
occupies, then subtract 1 . Now put the result 
at the end of Line 1000. Similarly, count the 
number of screen locations along the top of 
the new maze, and subtract 1. Put this 
number, instead of 18, at the end of Line 
1030. 

Finally, count how many dots there are in 
the new maze. If the count is different from 
153 you'll have to change Line 1 160 too. just 
substitute the new number for 153. 
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This Commodore maze is constructed from 
PRINT statements and ROM graphics. 

RUNning this program displays a pre- 
defined maze towards the middle of the 
screen. Use the Z and X keys to move the n 
character left or right, and the P and L keys to 
move it up and down. The dots — 'coins' in 
this game — are erased as n overruns them, 
giving a count as it does so. 

Looking at the program, you can see that 
the early part, Lines 10 to 40, is used for 
setting the variables. P1 is the screen memory 
location at the point where the maze 'coins' 
begin. BD is the border address and BG is the 
screen (background) colour, changed in Lines 
45 and 50 to blue and black, respectively. The 
character colour is set in Line 30: by altering 
the value in brackets to an acceptable code 
(see your manual appendix for ASCII and CHR$ 
codes) you can change the colour of the maze. 

Line 35 shows another way you can 
program a |CLR/H0ME| . Previously, the reverse 
heart symbol has been used as part of a PRINT 
statement, to clear the screen and position the 
cursor at the top left, ready for any following 
instruction. Well, you can use CHR$(147) in 
exactly the same way — but for a long 
program, where memory saving is important, 
this would be defined as a string variable early 
in the program RUN, as in Line 35. 

Line 55 sets up the repeat key facility 




which is essential in a maze game such as this. 
Then comes the maze PRINTing sequence, 
followed in Line 200 by a POKE which places 
n at location 1117, the top left corner of the 
maze. And then the program displays a 
keypress request message for the game to 
begin (or continue). Line 225 has two embed- 
ded cursor up-controls and forty blank spaces 
within the PRINT statement. As soon as [SPACE] 
is pressed, Line 225 is PRINTed — and 
overwrites the keypress request message, a 
very simple blanking out routine. Another way 
of programming this is: 

225 PRINT "nnC":F0R T=0 TO 39: 

PRINT "D";:NEXTT 

As you can see, a simple FOR ... NEXT loop 
can do the same a little more elegantly! 

Next, in Lines 300 to 320, there is the 
keypress detection routine using GET and a 
succession of IF . . . THEN statements to set the 
value of P2, the new position of the n. 

Line 325 PEEKs the location address of n, 
GOTOing the coin count display if the location 
does not contain either a space or a coin. If it 
contains a coin, the coin count register is 
increased by 1 (Line 330), the previous n 
position, PI, is blanked off (Line 335) and a 
new value established for it (Line 340). In 
effect, Line 325 prevents you overwriting the 
maze characters. 

The program continues with a display of 
the coin count and the GET routine is repeated 
until CO equals 103 in Line 365, whereupon 
the program is reRUN automatically. 

You'll need to make a number of changes to 
get this to RUN on the Vic. Omit Lines 15 and 
45 completely. In Line 10, use 7735 instead of 
1 1 17. In Line 20, use 36879 instead of 53281 . 
In Line 25, use 22 instead of 40. In Line 50, 
use 14 instead of 0. In Lines 100 to 170, use 
TAB (3), instead of TAB (12). In Line 210, 
insert four spaces after PRESS; also insert three 
extra spaces in Line 225. In Line 360, change 
TAB (14) to TAB (4). 

10 LET P1 =1117: LET P2 = P1 
15 LET BD = 53280 
20 LET BG = 53281 
25 LET LL = 40 
30LETCC$ = CHR$(5) 
35LETCS$ = CHR$(147) 
40 LET CH$ = CHR$(19) 
45 POKE BD,6 
50 POKE BG,0 
55 POKE 650,1 28 
60 PRINT CS$,CC$ 



100PRINTTAB(12)" 
105 PRINTTAB(12) " 
110 PRINT TAB(12) " 
115 PRINT TAB(12) " 
120 PRINT TAB(12)" 
125 PRINT TAB(12) " 
130 PRINT TAB(12) " 
136 PRINT TAB(12) " 
140 PRINT TABC12)" 
145 PRINT TAB02) " 
150PRINTTAB(12) " 
155 PRINTTAB(12) " 
160PRINTTAB(12)" 
165 PRINT TAB(12) " 
170 PRINT TAB(12) " 
200 POKE P1, 94 
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PRESS 



210 PRINT "MEND OF GAME. 
(SPACE BAR) TO START." 

215 GET K$ 

220IFK$<>"L1"THEN215 

225 PRINT "□□DQDDDD 
DDnaDDDDDDDD 
DDDDDDDDDDD 
DDDDDDDDDaD" 

300 GET A$ 

305 IF A$ = "Z" THEN P2 = P1 — 1 

310IFA$ = "X"THENP2 = P1+1 

31 5 IF A$ = "P" THEN P2 = PI — LL 

320 IF AS = "L" THEN P2 = PI + LL 

325IFPEEK(P2)<>32AND 

PEEK(P2)<>46 THEN GOTO 350 

330 IF PEEK(P2) = 46 THEN 
C0 = C0 + 1 

335 POKE P1, 32 

340 LET PI =P2: POKE PI ,94 

350 PRINT CH$; 

360 PRINT TAB(14);"C0INS:";C0 

365 IF CO < 103 THEN 300 

400POKEBG,6:CO = 

415 FOR T = 1 TO 2000: NEXTT: GOTO 10 



A BIT OF COMPETITION 



Now add the timing lines: 

205 PRINT TAB(12);"HBEST 

TIME:D";BT 
230 LET Tl$ = "000000" 
355 PRINT TAB(2);"TIME: ";TI$; 
400IFG = 0THENBT=VAL(TI$) 

G = 1 
405 IF VAL(TI$) <BTTHENBT= 

VAL(TIS) 
410 LET CO = 0: POKE BG,6 



CHANGING THE MAZE 



If you wish to change the maze, adjust the 
contents of the PRINT statements in Lines 105 
to 165. You can use any of the ROM symbols 
and even change the size of the maze — but 
remember to adjust the value of CO in Line 
365 for the number of dots in your maze. 
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■ SEARCHING A RECORD 


■ AMENDING A RECORD 


■ DELETING A RECORD 


■ SAVEING ONTO A PRINTER 


■ USING YOUR HOBBIES FILE 



Extracting information from a filing 
system is easy when you have it on 
computer. You can find a person's 
name and address, for example, even 
if you know only his middle name, 
or only that he lives in London. 

One of the great advantages of computer 
filing compared with old-fashioned methods 
is the ease with which you can search through 
your files. This applies even if you can 
remember only, for example, the middle 
name of the person whose name and address 
you need. 

The datafiie program in the last article in 
this series allowed you to set up a highly 
flexible computer filing system. This article 
shows how you can search the files for 
whatever you need; how to amend a record 
which is out of date or inaccurate; and how to 
delete an obsolete file. 



SEARCHING A RECORD 



The search option is number 4 on the main 
menu. This allows you to search through any 
of the fields for records containing a parti- 
cular piece of information. 

If you press the 4 key, the computer will 
ask you which field you want to search. You 
have to key in the number of the field— 1 for the 
first, 2 for the second, 3 for the third and so on, 
counting from the top of the screen. Then it will 
ask you what you want to search that field for. 
So you key in the word or number it should look 
for in that field — for example, JOHN, or 
CASSERO LE , or GAV IIDAE, or DMU— then press 
IRETURNI or |ENTER|. 



The word or number you key in must be 
exactly what is written in the field. If a word is 
stored in the records in capital letters and you 
are searching for it in small letters, the 
computer will not find it. Even the spaces left 
between words must correspond exactly. If, 
by mistake, you have left a space before the 
entry in the record, or accidentally hit the 
space bar after the entry, the computer will 
probably not find it. This applies even if the 
word in the record and the word you are 
searching for look exactly the same when 
displayed on the screen. 
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So, as a precaution, always feed in your 
records in capital letters and omit any un- 
necessary spaces, then do the same when 
searching. 

If the computer cannot find any records 
with the word you have asked for in the field 
you have asked it to search, it will tell you and 
return you to the main menu. If it does find 
some, it will list them in alphabetical order. 

Every record has two lines of options 
at the bottom of the screen. The first reads: 

F(ORWARD) B(ACK) M(ENU) 

These work in roughly the same way as 
before, with the F key advancing through the 
records the search has selected one by one, the 
B key taking you one by one backwards 
through the records and M taking you direct 
to the main menu. But, if you press the F key 
when you're on the last of the records selec- 
ted, nothing will happen. B on the first in the 
search mode gives a 'no records found' 
message. 

Perhaps the most useful application of the 
search option is to find one particular record. 
If you can remember anything about that 
record you should be able to locate it easily 
enough. Say you were using this file to store 
the names, addresses and telephone numbers 
of club members and had the following fields 
set up: surname, forename, middle name, 
street, city, county, postcode, phone number. 
In this case, you would be able to search for a 
particular record even if you could only 
remember the person's middle name! 

And if the piece of information you re- 
membered was not exclusive to this record — 
if you knew only that the person whose record 
you wanted lived in London, or his christian 
name was John — you would easily be able to 
call up all the Londoners or all the Johns and 
flick through them until you found the right 
one. Even if there were a lot of them that 
would be a great deal easier than going 
through the whole file. Cross-referencing like 
this is virtually impossible without using a 
computer. 



AMENDING A RECORD 



The second line of options displayed at the 
bottom of each record reads: 

A(MEND) D(ELETE) P(RINTER) 

If you want to change the record displayed on 
the screen vou hit the A kev. The computer 
will then ask you WHICH FIELD NUMBER you 
want to amend and you must key in the 
number, counting from the top as before. 

Then you'll be told to ENTER 
MODIFICATION. You have to key in the whole 
of the new field vou want to enter, even if 




there is only one letter you want to amend. 
When you hit the I RETURN I or pTERl key, the 
computer will write your amendment to the 
record in the appropriate place. You can then 
press A again and amend another field. 

If you want to amend a record that is not on 
the screen, you have to press M to get back to 
the main menu, then choose the search op- 
tion 4, to locate the record you want to 
modify, as above, then amend it. Alterna- 
tively, you could choose option 3, VIEW 
RECORDS, find it that wav and amend it. 



DELETING A RECORD 



Again, you first have to locate the record you 
want to delete by using the search or view 
options. Then you will be presented with the 
six standard options— F(ORWARD), B(ACK), 
M(ENU), A(MEND}, D(ELETE) and P(RINTER)— 
at the bottom of the screen. To delete a record 
you simply press D. The computer then asks 
you ARE YOU SURE? This precaution prevents 
your deleting a record by accident. 

If you are sure that you want to delete it 
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you should press Y. The computer will then 
delete that record and display the next one — 
either the next one picked alphabetically if 
you are in the view mode, or the next one that 
has the same field that you have been search- 
ing if you are in the search mode. 

If you have deleted the last record found by 
the search, the computer will tell you that 
there are no more records with that item in 
that field and take you back to the main menu. 



PRINTING OUT RECORDS 



The last option given at the bottom of the 
screen when a record is shown is P(RINTER). If 
you press the P key on the Commodore, 
Dragon, Tandy or Acorn, the computer will 
ask you to CHECK PRINTER. At this point you 
must check to see that the printer is connected 
and switched on, otherwise if you continue 
with this option and the printer is not working 
you will have to come out of the program. 

On the Spectrum this CHECK PRINTER line 
is not necessary as the Spectrum will not 
respond to P if no printer is attached. 

Once you have checked that the printer is 
connected and switched on, you press C to 
continue. Press any other letters, the CHECK 
PRINTER line disappears and you can use any 
of the six standard options at the bottom of 
the screen again. If you should press C when 
you had no printer attached, or the printer did 
not work for whatever reason, you would then 
have to press the I ESCAPE | key (Acorn), 
jRUN/STOPl (Commodore) or |RESET| button 
(Dragon /Tandy) and come out of the program. 
To get back in again, key in: 

GOTO 30 

On the Commodore, use instead: 

GOTO 100 



USING YOUR FILING SYSTEM 



You now have a highly flexible filing system 
which can be used to store the details of just 
about everything. Of course, the same 
program can be used to store a whole cabinet 
worth of files on one long tape. 

But it is probably best to store different 
files on different tapes to make them easier to 
find. In that case, on computers other than 
the Spectrum, you will need to SAVE the 
program itself on a separate tape. This way 
you can LOAD it before you select option 6 and 

Load the data. 

This may seem a rather wasteful approach. 
After all, you will have to find shelf space for a 
number of cassette tapes, rather than just one 
or two. But then, think how much space the 
old-fashioned card-index files would have 
taken up. 



ENTERING THE PROGRAM 



The second section of the datafile program — 
much shorter than the first, you'll be pleased 
to see — follows. 

When you add it to the existing program 
you will notice that a few line numbers are 
duplicated. Do not worry about this. The 
numbers in the first section were there merely 
to keep the program intact and working so 
you could test it. The new numbers will 
replace the earlier ones as you key them in. 



4000 FOR N = V TO A: PRINT INVERSE V;AT 
N"2,9;N; INVERSE U; TAB 11;":— D", 
N$(N): NEXT N 

4010 PRINT ""SEARCH WHICH FIELD 

(1 T0D";A;")?" 
4020 IF INKEY$ = "" THEN GOTO 4020 
4030 LET Y$ = INKEYS: IF CODE Y$ < 49 OR 

CODE Y$ > 48 + A THEN GOTO 4030 
4040 BEEP .1,10: LETZ = VAL Y$: PRINT 

"'Search field D";Z;"D for what ?": 

DIM Z$(V, A(Z)): INPUT LINE Z$(V) 

4044 CLS: LET K = V 

4045 IF A$(K,B(Z) + VT0 B(Z + V)) = Z$(V) 
THEN GOTO 4050 

4046 IF K-R OR A$(K,V) = "□" THEN 
CLS : PRINT AT 9,3;" D NO RECORDS 
W1THD";Z$(V),'TAB 10;"IN FIELDD"; 
Z: PAUSE 150: RETURN 

4047 LET K = K + V: GOTO 4045 

4050 LET D = V: LET PM = V: LET M0 = V 

4060 IF D> R THEN LET D = PM 

4070 IF D = U THEN LET D = PM 

4080 IF A$(D,V) = " D " THEN LET D = PM 

4090 IFA$(D,B(Z) + VTO B(Z+V)) 
<>Z$(V)THENLETD = D + MO: 
GOTO 4060 

4100 GOSUB 9500 

4110 LET PM = D 

4120 IF OP = V THEN LET M0 = V: LET 
D = D + M0: GOTO 4060 

41 30 IF OP = 2 THEN LET MO = - V: LET 
D = D + M0: GOTO 4060 

4140 IF 0P = 3 THEN RETURN 

41 50 IF OP = 4 THEN GOSUB 8000 

4160 IF 0P=5 THEN LET DF = U: LET 
MD = 2: GOSUB 9000: IF DF=V OR 
A$(V,V) = "D" THEN RETURN 

4170 GOTO 4100 

8000 INPUT AT U,U;"AMEND which field (1 
TOrj";(A);")?";J:IFJ>ATHEN 
GOTO 8000 

8010 PRINT FLASH V;AT V + 2*J,12;A$ 
(D,B(J) + VTOB(J + V)): INPUT AT 
U,U;"Enter modified field now", LINE 
A$(D,B(J) + V TO B(J + V)): PRINT AT 
V + 2*J,12;A$(D,B(J) + VTOB(J + V)) 

8020IFD = RTHENLETJ = -V: 



GOTO 8070 
8030 IF D = VTHEN LET J = V: GOTO 8060 
8040 IF AS(D)>A$(D + V) THEN LET J = V 
8050 IF A$(D) < A$(D - V) THEN LET 

J=-V 
8060 IF A$(D + V,V) = "D" AND J = V THEN 

GOTO 8500 
8070 IF J = V THEN GOTO 8100 
8080 IF A$(D)> =A$(D-V) THEN GOTO 

8500 
8090 LET X$ = A$(D): LET A$(D) = 

A$(D-V): LETA$(D-V) = X$: LET 

D = D-V: GOTO 8020 
8100 IF A$(D)< =A$(D + V) THEN GOTO 

8500 
8110 LET X$ = A$(D): LET A$(D) = 

A$(D + V):LETA$(D + V) = X$:LET 

D = D+V: GOTO 8020 
8500 BEEP .1,10: PRINT AT U,U;"Record 

numberD";D;"Dnn": RETURN 



tykto 



Why do long programs that I 
type in sometimes fail to RUN 
properly? 

Typing in long programs that someone 
else has written can be a laborious, even 
daunting, task. To make it easier — and 
more accurate — type in, then check, only- 
short sections at a time. Many programs 
are structured into self-contained 
sections, such as subroutines, loops or 
procedures. The easiest way to check 
each section is to type GOTO, followed 
by the line number at which the section 
begins. If the section requires a value 
from a variable from another part of the 
program, you may be able to identify it 
and type it in. If you cannot see, or 
cannot isolate, such a structure then type 
in only short sections of, say, 20 to 30 
lines at a time, checking each block 
carefully on the TV screen as you go. 
Fortunately, the job becomes easier with 
time — the more you know about your 
programs, the easier other people's are. 

If you have typed in the whole 
program and it still does not work, more 
drastic methods of diagnosis need to be 
employed. Identify the variables and try 
PRINTing them out at various points 
during the program by adding 
temporary PRINT lines at appropriate 
points. You may be able to spot 
when a variable takes on an 
inappropriate value while the 
program is being RUN. 
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Program alterations 
for the Electron 

A few alterations must be made to get 
the program to run on the Electron. 
Change Lines 5040 onwards to: 

5038 Q= 1 

5040 PROCFIND 

5041 IF Col THENPROCVDU: 
PROCKEY:$B% = A$ 

5042 UNTIL Q=1 ORC = 

5043 IF Q=1 THEN 5045 
5044CLS:PRINTTAB(12,5)"NO 

RECORDS WITH"TAB(20-LEN(A$)/ 

2,7)A$TAB(15,9)"IN FIELD"; 

F:G = INKEY{300) 
5045 ENDPROC 
5047 DEF PROCFIND 
5050 T=0 
5060D%=D%+C 
5065 IF D%<1 OR D%>N%-1 THEN 

C=-C:T=T + 1:D%=D% + C 
5070 IF $B%=$(B% + D%*R%+TRL 

(F)) THEN 5100 
5080 IF T<2 THEN 5060 
5090 C=0 
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9000 PRINT AT 19,U;"ARE YOU SURE YOU 

WISH TO DELETE?": PAUSE U 
9010 IF INKEY$ = "" THEN 

GOTO 9010 
9020 IF INKEY$< >"Y" THEN PRINT AT 

19,U;"D □ DDDDDDDDDD 

DDDDDDDDDDDDDDD 

□ □□□□": BEEP .1,10: RETURN 
9030 PRINT AT 1 9,U;" D DELETING 

DDDDDDDDDDDDDDD 

DDDDDDDD" 
9035 LET DD = D 
9040 IF D = R THEN LET DD = DD - V: 

GOTO 9060 
9050 IFA$(D + V,V)< >"□" THEN LET 

A$(D) = A$(D + V):LETD = D + V: 

GOTO 9040 
9060 LET A$(D) = "": FORF = VTO100: 

NEXT F: PRINT AT 19,U;"DDD 

DDDDDDD" 
9070 LET D = DD: IF A$(V,V) = " D " THEN 

LET D = U: RETURN 
9072 IF D = U THEN LET D = V 
9075 IF A$(D,V) = "D" THEN LET D = D-V 
9080 IF MD = V THEN RETURN 
9090 LET K = V 
9100IFA$(K,B(Z)+VTOB(Z + V}) = Z$(V) 

THEN GOTO 9130 
91 1 IF K = R OR A${K,V) = " □ " THEN LET 

DF=V: GOTO 4046 
9120 LET K=K + V: GOTO 9100 
9130 LETDD=D: LETPA = V 
9140 IF A${DD,V) = "D" OR DD= U THEN 



LETPA=2:LETDD=D:LETM0 = 

MO-V 
9150IFA$(DD,B(Z) + VTOB(Z + V)) = Z$(V} 

THEN LET D = DD: RETURN 
9160 LET DD=DD+M0: GOTO 9140 



3020PRINT'"Which field number ?" 
3035 R = GET — 48:IF R < 1 ORR>AD 

THEN 3035 
3060VDU1 1 : PRINT'Enter modification DD:";: 

PROCINPUT{A(R)):P.' 
3065IFLEN($B%)<1 THEN 3060 
3070$(B% + D%*R% + TRL(R)) = $B% 
3080IFD% = 1 THEN3140 
3090X= B% + D%*R%:Y = B% + (D%-1)*R% 
3100IF$X>=$YnTHEN3130 
3110FOR T=1 T0A:$B% = $(X+TRL(T)): 

$(X+TRL(T)) = $(Y + TRL(T)): 

$(Y + TRL(T)) = $B%:NEXT 
3120D% = D%-1:IFD% = 1 THEN 3180 ELSE 

3090 
3130IFD% = N%-1 THEN 3180 
31 40X = B% + D%*R%:Y = B% + {D% + 1 }*R% 
3150IF$X<=$YDTHEN3180 
3160FOR T=1 TOA:$B% = $(X+TRL(T)): 

$(X+TRL(T)) = $(Y + TRL(T)): 

$(Y + TRL(T))=$B%:NEXT 
31 70D% = D% + 1 :GOT031 30 
3180D% = D%-C 
401 0VDU1 1 ,1 1 :PRINT"Are you sure you want to 

delete thisDPD D";STRIN I G$(40,"D") 
40200 = GET AND &5F:IFQ< >89 THEN 

ENDPROC 
4030IF D%= N%- 1 THEN 4080 
4050FORT=D% + 1 T0N% 
4060FOR Q=1 TO A:$(B% + R%*(T-1) + 

TRL(Q)} = $(B%+R%*(T)+TRL{Q}):NEXT 
4070NEXT 

4080N% = N% - 1 : D% = D% - C 
5001IF N% = 1 THEN ENDPROC 
5005CLS:FOR N = 1 TO A:PRINT';N,N$(N):NEXT 
5007D% = 0:C = 1:Q = 
5010PRINT'"Search which field?"; 
5020F = GET-48:IF F<1 OR F>ADTHEN 

5020 
From Lines 5030 to 5090 BBC users can use 
the lines shown in the panel, top-left. 
5030PRINT""Search field D";F;"D for what 

?D"; 
5035PROCINPUT(A(F)) :A$ = $B%:P'. 
5037REPEAT 
5040PROCFIND 

5041IFC<>0THENPROCVDU:PROCKEY:Q = 
50420% =D% + C 
5043UNTIL = 2:0 = 1 
5044CLS:PRINTTAB(12,5)"No records with" 

TAB(20 - LEN(A$)/2,7)A$TAB(1 5,9) 

"infieldD";F:G = INKEY(300) 
5045ENDPROC 
5047DEF PROCFIND 




5050T = 0:REPEAT 

5070IF $B% = $(B% + D%*R% + TRL(F)) 

THEN T = 2:G0T0 5080 
5073D%=D% + C 
5075IF D%> N%-2 OR D%<2 THEN 

T = T+1:C=-C:Q=Q+1 
5080UNTILT>1 
5090IF = 2 THEN C = 
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3000 GOSUB8500 

3010 PRINT@417,"M0DIFY WHICH FIELD 

(1 T0";A;")D?"; 
3020 IN$= INKEY$:IFIN$ = "" THEN3020 
3030 J = VAL(IN$) 
3040 IFJ <1 ORJ>ATHEN3020 
3050 PRINT@448,"" 
3060 PRINT@45 + 32*J,"":PRINT@417, 

"ENTER MODIFIED FIELD NOW-": 

LINE INPUTA$(D,J) 
3070 A$(D,J) = LEFT$(A$(D,J),A(J)) 
3080 I FD = R THENJ = - 1 :G0T031 30 
3090 IFD = 1 THENJ = 1 :G0T031 20 
31 00 IFA$(D,1 ) > A$(D + 1 ,1 ) THENJ = 1 
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3110 IFA${D,1)<A$(D-1,1) THENJ = -1 
3120IFA$(D + 1,1) = ""ANDJ = 1 

THEN3180 
3130IFJ = 1 THEN3160 
3140 IFA$(D,1)> =A$(D 1,1) THEN3180 

3150 F0RN = 1T0A:X$ = A$(D,N): 

A${D,N)=A${D-1,N):A$(D-1,N)=X$: 

NEXT:D=D-1:GOTO3080 
3160IFA$(D,1)<=A$(D + 1,1)THEN3180 
3170 F0RN = 1T0A:X$ = A$(D,N): 

A$(D,N) = A$(D + 1,N):A$(D + 1,N) = X$: 

NEXT:D = D + 1:GOTO3080 
3180 FORF = 1TO300:NEXT:RETURN 
4000 G = D 
4010GOSUB8500 
4020 PRINT@449,"ARE YOU SURE YOU 

WISH TODDDDDDDD 

DELETE ?"; 
4030 INS = INKEY$:IF!N$ = ""THEN4030 
4040 IFIN$< >"Y" THENRETURN 
4050 IFG = NR THENG = G - 1 
4060 CLS7:PRINT@236,"DELETING";: 

SOUND30,1 
4070 IFD = NR THEN4090 



4080 FORN = 1 TOA:A$(D,N) = A$(D + 1 ,N) : 

NEXT:D=D + 1:GOTO4070 
4090 FORN = 1TOA:A$(D,N) = "":NEXT: 

NR = NR-1:D = G 
4100 FORF = 1TO400:NEXT:RETURN 
5000 FORN = 1TOA:PRINT@33 + 32*N,N, 

N$(N):NEXT 
5010 PRINT@417,"SEARCH WHICH FIELD 

(1 TO";A;")Q?"; 
5020 IN$ = iNKEY$:IFIN$ = "" THEN5020 
5030IFVAL(IN$)<1 

ORVAL(IN$)>ATHEN5020 
5040 SOUND30,1:Z = VAL(IN$): 

PRINT@41 7,"SEARCH FIELD";Z;"FOR 

WHATD?" 
G050 LINEINPUTZS 
5060 D = 1:G = 0:CH = 1 
5070 IFD > NR ANDG = 1 THENG = 0: 

CH= — 1 ELSEIFD>NRTHEN5230 
5080 IFD < 1 ANDG = 1 THENG = 0:CH = 1 

ELSEIFD<1 THEN5230 
5090 IFA$(D,Z) <> Z$ THEND = D + CH: 

GOTO5070 
5100LD=D:G = 1:GOSUB8500 



51 1 PRINT@451 ,"fORWARDSD DDD 
bACKWARDSD □ DmENUD DaMEND 
D D □ □ DdELETED D D □ □ 
pRINT"; 

51 20 INS = INKEY$:IFIN$ = "" THEN51 20 

5130IN = INSTR(1,RS$,IN$} 

5140 ON IN GOTO 5160,5160,5170, 
5180,5190,5200,5210 

5150GOTO5120 

5160CH = 1:D = D + 1:GOTO5070 

5170 CH= — 1:D = D-1:GOTO5070 

5180 RETURN 

5190GOSUB3000:GOTO5090 

5200 GOSUB4000:GOTO5090 

5210GOSUB10000:GOTO5070 

5220 GOTO5110 

5230 CLS2:PRINT@200 5 " NO RECORD 
WITH □ ";:PRINT@271 - LEN(Z$)/2," D "; 
Z$""D"" 

5240 PRINT@330,"DIN FIELD";Z; 

5250 FORG = 1TO5:SCREEN0,1: 
FORF = 1TO500:NEXT:SCREEN0,0: 
FORF= 1TO500:NEXTF,G:RETURN 



3400 ix$ = au$(ix):gosub14500 

3420 ifaa$ = "n"thengosub3720:goto31 00 

3430 u = u - 1 

3440 tfu = 0thenreturn 

3450 ru = r(up):ifup = uthen3470 

3460 fordn = uptou - 1 :r(dn) = r(dn + 1 ):next 

3470ifru = uthen3510 

3480 fordn = 0tou - 1 :ifr(dn) < > uthen3500 

3490 r(dn) = ru:forn = 1 tortf :t$(ru,n - 1 ) = 

t$(u,n — 1}:next:dn = u 
3500 next 

3510ifup = uthen3980 
3520 goto3040 
3700 gosub11500:printx2$ro$"D D □ □ 

DDDDDDDDDDDDD 

□□□□□□□□nnnnn 

DDDDDDDDDD"; 
3705 print" D □ □ □ PLEASE INPUT FIELD 

NUMBER D"x3$; 
3710ok$ = left$("12345678",nf): 

gosub10600 
3712gosub3720:aoto3800 
4000 printcs$x1$gr$"UWHICH FIELD IS TO 

BESEARCHED?:"cc$"D"cl$; 
4010ok$ = left${"12345678" ( nf): 

gosubl 0600 
4030printchr$(ix + 48):fx = ix 
4040 printx1$gr$"DWHAT ARE YOU 

LOOKING FOR?:"cc$ 
4050 y = 8:x = 0:gosub1 1 500:printro$hd$(ix) 

"□:?";:x = len(hd$(ix)) + 4 
4060 z = lx(ix):gosub1 3000:ifright$(ix$,1 ) = 

" D "thenix$ = left$(ix$,len(ix$) - 1 ) 
4070 ifix$ « ""thengosub10000:goto4050 
4080fx$ = ix$:ff=len(fx$) 
41 00 goto3980 
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The 3 by 3 frame that you learned 
how to create earlier can be used for 
a wide variety of graphics. Here's 
one— a fearsome dragon that walks 
and breathes fire 
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A fire-breathing dragon is a useful character 
to add some thrills to the adventure games 
you're going to write. In fact, no tale of sword 
and sorcery would be complete without one. 
Far from being a difficult character to 
create, move around and ignite, you can make 
a dragon in exactly the same way as you 
created the tank and the frog on pages 8 to 15. 
The movement routines are also identical and 
the fire-breathing mechanism is a good deal 
simpler than the one which fired the shell 
from the tank. 

5BSSE1 

To create a dragon, you first have to set up a 
frame or grid in the computer's memory. 
Exactly the same grid as the one you set up for 



the tank and the frog will be suitable. 

If you SAVEd that frame-construction 
program on tape when you keyed it in to build 
the tank, you can simply LOAD it back into 
your computer off tape and then key in the 
dragon-making program for your machine 
listed below. If not, you will have to key in the 
frame-construction program on page 8 for the 
Spectrum, page 11 for the Electron or the 
BBC micro, or page 13 for the Dragon/Tandy. 

If you don't want to SAVE this useful 
program on tape this time either, leave out the 
SAVE lines — that is, Line 50 in the Spectrum 
program, Line 40 in the BBC or Electron 
program and Lines 60 to 120 in the Dragon 
and Tandy program. 

Once you've keyed in the program, with or 



without the omissions, you must RUN it. This 
stores the machine code in the machine's 
memory. When the program has finished 
RUNning and you get an OK message on the 
Spectrum, Dragon and Tandy, or the cursor 
returns on the BBC and Electron, you type in 
NEW and hit the [ENTER] or |RETURN| key. 

This clears the computer's BASIC mem- 
ory area and minimizes the chance of your 
dragon program being corrupted or spoiled 
by leftover program lines. 

Then type in the following program lines 
for your machine, being careful to check the 
numbers in each line beginning DATA before 
you press RETURN! to go on to the next line. 
When you RUN the program you will get a 
dragon on the screen. Press Z and it will walk 
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FITTING A NEW CHARACTER 

INTO A GRAPHICS FRAME 

MOVING AROUND THE SCREEN 

HOW TO MAKE YOUR DRAGON 

BREATHE FIRE 



to the left, press X and it will walk to the right, 
P and L move it up and down and hitting the 
space bar makes it breathe fire. 



10 FOR n = USR "a" TO USR "t" + 7: READ 

a: POKE n,a: NEXT n 
20 LET print = 32400: LET b = 32402: IF 

PEEK 23733 = 255 THEN LET print = 65200: 

LET b = 65202 
90 BORDER 0: PAPER 0: INK 4: CLS: 

PRINT AT 8,15;: RANDOMIZE USR print 
1 00 LET y = 8: LETT x = 1 5: LET y1 = 8: 

LET x1 = 1 5: LET z = 1 
110LETa$ = INKEY$: IFa$ = "" 

THEN GOTO 110 
115 IF aS = "D" THEN GOTO 200 



120IFa$ = "z"ANDx>1 THEN LET 

x1 =x — 1: LET z = 1 
1 30 IF a$ = "x" AND x < 28 THEN LET 

x1=x + 1: LETz = 2 
140 IFa$ = "p" AND v>0THEN LET 

y1=y-1 
150IFa$ = "l" AND y< 19 THEN LET 

y1=y + 1 
160 PRINT AT y,x;: POKE b,0: 

RANDOMIZE USR print 
170 LET x = x1: LETy = y1 
180 PRINT AT y,x;: POKE b,z: 

RANDOMIZE USR print 
190 GOTO 110 

200 IF z=2 THEN GOTO 300 
220 PRINT INK 6;AT y,x-1;CHR$ 162 
230 PAUSE 1 



240 PRINT AT y,x-1;"D" 

260 GOTO 110 

300 PRINT INK 6;AT y,x + 3;CHR$ 1 63 

310 PAUSE 1 

320PRINTATy,x + 3;"D" 

330 GOTO 110 

1000 DATA 6,214,249,63,240,0,3,15,96, 

64,1 92,224,224,1 92,1 96,204,0,0,0,0, 

0,0,0,0 
1010 DATA 63,125,107,245,249,127,127, 

51 ,244,1 96,1 94,255,1 28,1 92,224,240, 

0,0,0,2,6,14,6,10 
1020 DATA 55,23,7,3,1,0,4,7,254,255, 

239,239,224,1 92,1 28,1 28,56,240,1 92, 

0,0,0,0,0 
1030 DATA 0,0,0,0,0,0,0,0,6,2,3,7,7, 

3,35,51 ,96,1 07,1 59,252,1 5,0,1 92,240 
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1040 DATA 0,0,0,64,96,112,96,80,47, 


100 PCLS 


33,65,255,1,3,7,15,252,190,182, 


110 FORI = 1536 TO 1760 STEP32 


175,159,254,254,204 


120 READ N 


1050 DATA 28,15,3,0,0,0,0,0,127,255, 


130 POKE), N 


247,247,7,3,1,1,236,232,224,192, 


140 NEXT 


128,0,32,224 


150GET(0,0)-(7,7),A 


1060 DATA 8,68,50,139,50,68,8,0,16, 


160 FORI = 1536TO 1760 STEP32 


34,76,145,76,34,16,0 


170 READ N 


yAktwm^mmmm 


180 POKE l,N 
190 NEXT 


On the Tandy, you will need to change the 239 


200GET(0,0)-(7,7),B 


in Line 300 to 251 . Also change the 247 in 


210 PCLS 


Line 310 to 253, and the 223s in Line 320 and 


220 SCREEN1 ,0 


330 to 247: 


230 T = 1 




240 DP = 3500 


20 PCLEAR5 


250 POKE32700,INT(DP/256) 


30 CLEAR200,32000 


260 POKE 32701, DP- 256* I NT{ DP/256) 


40 FORI = 32300 TO 32587 


270POKE32250,T+DT*2 


50 READ N 


280 EXEC32000 


60 POKE l,N 


290 LP = DP 


70 NEXT 


300 IFPEEK{338) = 239 THENDP= DP — 32 


80 DIMA(2},B(2),C(2) 


GOTO360 


90 PM0DE4,1 


31 IFPEEK{342) = 247 THENDP= DP + 32 



GOTO360 
320 IFPEEK(340) = 223THENDP = DP-1: 

T = T + 1:DT=1:GOTO360 
330 IFPEEK(338) = 223 THENDP = DP + 1 : 

T = T + 1:DT=0:GOTO360 
340 IFINKEY$ = " □ " AND T= 2 G0SUB41 
350 GOTO300 
360 IFDP < 1536 OR DP> 6941 

THENDP = LP 
370IFT>2THENT = 1 
380 POKE32250,0 
390 EXEC32000 
400 GOTO250 
410 IF DT=1 GOTO470 
420 YP = INT((DP — 1536)/32) 
430XP = 8*(DP-1533-YP*32} 
440IFXP>255THEN530 
450 PUT(XP,YP)-{XP + 7,YP+7),A 
460 GOTO510 

470 YP = INT((DP — 1 536)/32) 
480XP = 8*(DP-1537-YP*32) 
490 IFXP<0 THEN530 
500 PUT(XP,YP)-(XP + 7,YP+7),B 
510 FORI = 1TO200:NEXT 
520 PUT{XP, YP) - (XP + 7, YP + 7),C 
530 RETURN 
540 DATA 0,0,0,0,0,0,0,0,6,2,3,7,7,3, 

35,51,96,107,159,252,15,0,192,240 
550 DATA 0,0,0,0,64,96,112,96,47,33, 

65,255,3,7,15,31,248,188,182,175, 

159,255,254,254 
560 DATA 80,28,15,7,1,0,0,0,63,255, 

255,255,255,15,2,3,252,248,252,252, 

248,48,82,222 
570 DATA 0,0,0,0,0,0,0,0,0,6,2,3,7,7, 

3,33,0,96,107,159,252,15,192,240 
580 DATA 0,0,0,64,96,112,96,80,49,47, 

33,47,49,99,7,15,252,190,182,175, 

159,254,254,156 
590 DATA 28,15,3,0,0,0,0,0,127,255, 

239,239,1 5,6,2,3,220,21 6,1 92,1 28,0, 




I 1. The Dragon (and Tandy) dragon is 
' made up from standard UDGs 



2. The Commodore version uses this 
machine's 'sprites' 
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0,64,192 
600 DATA 6,214,249,63,240,0,3,15,96, 

64,1 92,224,224,1 92,1 96,204,0,0,0,0, 

0,0,0,0 
610 DATA 31,61,109,117,249,255,127, 

1 27,244,1 96,1 94,255,1 92,224,240,248, 

0,0,0,0,2,6,14,6 
620 DATA 63,31 ,63,63,31 ,1 2,74,1 23,252, 

255,255,255,255,240,64,192,10,56, 

240,224,128,0,0,0 
630 DATA 0,6,214,249,63,240,3,15,0, 

96,64,192,224,224,192,132,0,0,0,0, 

0,0,0,0 
640 DATA 63,1 25,1 09,245,249,1 27,1 27, 

57,140,244,132,244,140,198,224, 

240,0,0,0,2,6,14,6,10 
650 DATA 59,27,3,1,0,0,2,3,254,255,247, 

247,240,96,64,1 92,56,240,1 92,0,0, 

0,0,0 
660 DATA 0,16,34,76,145,76,34,16 
670 DATA 0,8,68,50,137,50,68,8 



10MODE1 

20 VDU23;8202;0;0;0; 

30FORT=224TO243:VDU23,T 

40 FOR P = 1 TO 8 

50 READ A 

60 VDUA:NEXT 

70 NEXT:VDU 19,3,2,0,0,0:CALL&D00 

80X = 0:Y = 0:X2 = 0:Y2 = 0:Z = 1 

90A$ = GET$ 

100 IF A$ = ' [ Z" AND X>0 THEN X2 = X — 1: 

Z = 1 
110 IF A$ = "X" AND X<37 THEN 

X2 = X + 1: Z = 2 
120IFA$ = "L"ANDY<29THEN 

Y2 = Y + 1 
130 IF A$ = "P" AND Y>0 THEN Y2 = Y — 1 
140IFA$ = "D"THEN200 
150 VDU31,X,Y:X% = 0:CALL &D00 
160 X = X2:Y = Y2 
170VDU31,X,Y 
180X% = Z:CALL&D00 
190 GOTO 90 
200 IF Z=2 THEN 240 
210VDU31,X-1,Y,242,8 
220A$ = INKEY${5):VDU32 
230 GOTO 90 
240VDU31,X + 3,Y,243,8 
250A$ = INKEY$(5):VDU32 
260 GOTO 90 
270 DATA 6,214,249,63,240,0,3,15,96, 

64,1 92,224,224,1 92,1 96,204,0,0,0,0, 

0,0,0,0 
280 DATA 63,125,109,245,249,127,127, 

51 ,244,1 96,1 94,255,128,1 92,224,240, 

0,0,0,2,6,14,6,10 
290 DATA 55,23,7,3,1,0,4,7,254,255, 

239,239,224,1 92,1 28,1 28,56,240,1 92,0, 

0,0,0,0 




3. How the Spectrum and Acorn dragons are built up from UDGs 



300 DATA 0,0,0,0,0,0,0,0,6,2,3,7,7,3,35, 

51,96,107,159,252,15,0,192,240 
310 DATA 0,0,0,64,96,112,96,80,47,33, 

65,255,1 ,3,7,1 5,252,1 90,1 82,1 75,1 59, 

254,254,204 
320 DATA 28,15,3,0,0,0,0,0,127,255, 

247,247,7,3,1 ,1 ,236,232,224,1 92, 1 28, 

32,224 
330 DATA 8,68,50,139,50,68,8,0,16,34, 

76,145,76,34,16,0 



Again, user defined graphics are a little differ- 
ent on the Commodore 64 as the graphics 
frames — or sprites, as they are known — 
already exist in the computer's memory. 
Consequently you do not need to RUN a 
frame-construction program before you enter 
the dragon-creation program below. Just key 
in and RUN it. 

10 SC = 53248:X = 150:Y = 157:ZZ= +45: 

POKE 650,255:PRINT "□":POKE 

53281, 0: POKE SC + 39,5 
20 FOR 1 = 16000 TO 16254: READ A: 

POKE l,A: NEXT I 
30 POKE 2040,250:POKE SC + 29,255: 

POKE SC+23,255:POKE 2041,252 
40 GET A$:P0KE SC + 21 ,253:IF A$ = 

"□" THEN POKE SC + 2,X + ZZ:P0KE 

SC + 3,Y:POKESC + 21,255 
50IFA$ = "Z"ANDX>60THEN 

X = X-2:P0KE 2040,251 :P0KE 2041,253: 

22= -45 
60IFA$ = "X"ANDX<200THEN 

X = X + 2:POKE 2040,250:POKE 2041,252: 

ZZ=+45 
70 IF A$ = "P" AND Y>70 THEN Y=Y-2 



80 IF A$ = "L" AND Y<200 THEN Y=Y + 2 

90POKESC,X:POKESC+1,Y 

1 00 IF A$ = " □ " THEN POKE SC + 2, 

X + ZZ:P0KE SC + 3,Y:P0KE SC + 21,255 
1 1 IF A$ = " □ " THEN POKESC + 40, 

RND{1)*8 
120 GOTO 40 
130 DATA0,6,1 92,0,2,1 92,0,3,241, 

0,3,159,0,35,252,0,59,15,0,43,129, 

0,39,192 
140 DATA1, 227,224,1, 1,240,60,241, 

1 20,36,31 ,1 24,60,31 ,1 26,6,63,1 42,3, 

127,254 
1 50 DATA1 ,255,254,0,255,252,0,1 27, 

248,0,12,48,0,4,164,0,7,188,0 
160 DATA3,96,0,3,64,0,143,192,0, 

249,192,0,63,196,0,240,220,0,129, 

212,0,3,228,0 
170 DATA7/1 99,1 28,1 5,1 28,1 28,30, 

143,60,62,248,36,126,248,60,112, 

252,96,127 
1 80 DATA254,1 92,1 27,255,1 28,63,255, 

0,31 ,254,0,1 2,48,0,37,32,0,61 ,224, 

0,0 
1 90 DATA0,0,0,32,0,0,80,0,0,32,0,0, 

15,0,0,32,0,0,80,0,0,32,0,0,0,0,0, 

0,0,0,0,0 
200DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
21 DATA0,0,0,0,0,4,0,0,1 0,0,0,4,0,0,240, 

0,0,4,0,0,10,0,0,4,0,0,0,0,0,0,0 
220 DATA0,0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,0,0,0,0,0,0 
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AND PAINT 



A few simple commands, plus your 
own imagination— that's all you need 
to produce computer pictures on 
your TV screen. Here we show you 
how to begin 




S4 



Connect a TV set to your computer and the 
screen is at your disposal. You can draw on it 
and colour it as you wish and with a little time 
you can make quite complicated pictures. 

Computer graphics has come a long way in 
the last few years and is now used for all sorts 
of things. Graphs and charts are an obvious 
example but you may also notice computer- 
generated pictures in TV adverts, magazines 
and even feature films. In fact many of the 
pictures in Input were produced or modified 
by a computer. 

Of course, the computers used for pictures 



of this sort are huge, much larger than the 
humble micro you have at home. But there's 
an awful lot you can do on your home micro. 
Most computers understand simple com- 
mands such as PLOT, DRAW, PAINT and INK. 
The TV screen is divided up into a number of 
individual picture elements called 'pixels' and 
each of these can be lit up and coloured as 
instructed by the different commands. On 
some computers you can choose between high 
resolution drawings with small pixels and fine 
lines, or low resolution pictures with larger 
pixels and coarse lines. 



So drawing lines is just a matter of telling 
the computer which pixels to light up. And 
after a few minutes experimenting with the 
commands and drawing simple pictures you'll 
soon know your way around the screen. 

The ZX81 has relatively limited graphics 
capabilities — so its programs explore the use of 
its single command, PLOT. And neither of the 
Commodore computers' standard BASIC lets 
you use the machines' high resolution graphic 
capability directly, but both can be fitted with 
an accessory cartridge to give them this 
facility. 



USING YOUR COMPUTER'S 
BASIC GRAPHICS COMMANDS 



DRAWING SQUARES, 



TRIANGLES AND CIRCLES 
COLOURING AND SHADING 



USING FLASH TO ENLIVEN 



SPECTRUM PROGRAMS 



SIMON'S BASIC AS AN AID TO 

COMMODORE GRAPHICS 

VARYING THE MODE ON ACORN 



The image which the Spectrum produces on 
your TV screen is 256 pixels, or dots, in width 
and 176 pixels high. 

They are numbered in what at first sight 
seems a rather odd way. If you are used to 
PRINT AT statements, you will know that 

PRINT AT 10, 15 

. . .means that what follows will be PRINTed 
10 lines from the top of the screen and 15 
'columns' from the left. 

When you PLOT a single pixel, however, 
the first number gives the distance from the 
left, and the second number gives the distance 
up from the bottom of the screen. So 

PLOT 10, 15 

... puts a spot 1 pixels in from the left and 1 5 
rows up. (Try it — you will just see the dot 
near the bottom left-hand corner.) 

The horizontal positions are numbered 
from to 255, and the vertical ones from to 
175. To get the 'fee!' of these positions, try 
these lines one at a time: 

PLOT 0, 
PLOT 0,175 
PLOT 255, 
PLOT 255, 175 

The four dots you now see mark the limits of 
the area in which you can produce a picture. 
Everything outside them is just BORDER (see 
below). You can PLOT in any colour, as 
explained below. 



DRAWING LINES 



DRAW on the Spectrum does exactly what you 
would expect it to: it draws a line. But before 
it can do so, the computer has to know where 
to start drawing the line, how long it is to be, 
and in what direction you want it. 

To start the line off, you can use a PLOT 
position. Try these lines in order, without 
clearing the screen between them: 

PLOT 100, 75 
DRAW 50, 

If you do not give a new PLOT position, the 
computer will just carry on from where it is 
already — that is, the end of the line it has just 



drawn. To show this, add these lines one at a 
time to the two you have just drawn: 

DRAW 0, 50 
DRAW -50,0 
DRAW0, -50 

As you see, you use positive numbers to draw 
up or to the right. You use negative numbers to 
drawn down or to the left. 

If you want an angled line, you just follow 
the same rule: first state how many places to 
the right (or left) it has to move, then how 
many up (or down). For example, add this 
extra line to those above: 

DRAW 50, 50 



BUILDING A PROGRAM 



Here is a more interesting program using 
DRAW. So you can see what's happening, first 
enter and RUN these lines: 

10 INK 2 

20 PLOT 0,175 

30 LET t = 255: LET r = -175: LETb= -255: 

LET 1 = 169 
40 DRAW t, 0: DRAW 0, r: DRAW b, 0: 

DRAW 0, 1 

If you have entered this correctly (and not 
mistaken small L (I) for the number 1, which 
cannot be a variable!) you should have a box 
with a corner missing. Next, add these lines: 

50 LETt=t 6 

60LETr = r + 12:LETb=b + 12:LET 

1 = 1-12 
70 DRAW t, 0: DRAW 0, r: DRAW b, 0: 

DRAW 0, 1 

This— RUN it to check — will give you another 
box inside the first. 
Now add the rest of the program: 

80 LET t = t 6 

90 GOTO 50 

When you RUN this you will probably be 
surprised by what has happened in the middle 
of the screen. 

The reason is simple. Every time your 
program executes the loop between Lines 50 
and 90, it deducts 12 from each of the positive 
numbers. The variable t (for top), for in- 
stance, reduces from 255 to 243 ... to 231 ... 



to 219 and so on. Eventually it passes zero and 
becomes a negative number — so the line that 
it is controlling reverses direction. In the 
same way, your negative variables (such as b 
for bottom) eventually become positive and 
also change direction. 

To watch the process more closely, reRUN 
the program with this addition: 

85 PAUSE 100 



LIGHT AND SHADE 



The Spectrum has no COLOUR statement to 
give you a quick, easy means of shading or 
colouring in an area of background. 

You can 'shade in' using rows of parallel 
lines. But as each new line must have its own 
PLOT statement, programs doing this can 
become cumbersome. 

One way round this is to use a FOR . . . NEXT 
loop, as in this program, which draws the 
right-hand wall of the house in fig 2: 

20 FOR h = 56 TO 100 STEP 3 
30PLOT160,h 
40 DRAW 23, 12 
50 NEXT h 

60 PLOT 183, 110: DRAW 0,-97: 
DRAW -23,-13: DRAW 0,1 00 

How does it work? Each time the loop is 
executed, the program draws a line 23 pixels 
long, and 'sloping' by 1 2 pixels from left to 
right. Each time, it starts 160 pixels from the 
left. 

But on each 'trip' round the loop, Line 20 
adds 3 to the variable h, representing the 
height of the PLOT position. So the beginning 
of each line is 3 pixels higher than before. 

Add the next few lines and your house will 
have most of its roof: 

70 LET r= 100 
80FORp = 140TO150 
90 PLOT r,p 
100 DRAW 69,-44 
110 LET r=r + 2 
120 NEXT p 

Here there are two variables, p and r. This is 
because the PLOT positions have to move not 
just upwards, but to the right as well. 

Note, incidentally, the use of negative 
numbers in Line 100 to make the roof slope 



downwards. The next few lines complete the 

outline of the house: 

130 PLOT 100,140 

140 DRAW -60,-40 

150 PLOT 46,1 03 

160 DRAW 0,-96 

170 DRAW 113,-7 

Now you can complete the house with a door, 
windows and chimney of your own design, 
using PLOT and DRAW statements. If you 
decide to copy it as it stands, here are some 
hints: 

• The triangle of 'cladding' below the roof 
requires three variables. One controls the 
height at which each line starts. One controls 
how far to the right each line starts. And one 
controls the length of the line. 

• The upstairs windows are 'knocked 
through' the cladding after it is installed. To 
do this, you will need to PRINT blocks of 
spaces, □, AT suitable points, using the 
method given in Games Programming 1. 
Then you 'line' the openings, using PLOT and 
DRAW in the usual way. 



DRAWING CIRCLES 



The Spectrum's CIRCLE statement also 
behaves quite predictably: it draws a circle. 

All you have to remember about it is that 
the first two numbers after a CIRCLE statement 
locate the centre of the circle — which is not 
printed — while the third one gives its radius 
in pixels. Thus the line: 

CIRCLE 127, 87, 50 

. . .draws a circle 100 pixels in diameter (50 
radius) in the middle of the screen. 

In the house program above, for instance, 
you could use CIRCLE to 'install' a round 
window in the front door. 

If you follow a CIRCLE with a DRAW 
statement, the line you draw will start from the 
point where the circle finished. 



SPECTRUM COLOURS 



The Spectrum has a range of eight colours, 
labelled immediately above the keys — from 
to 7 — which you use to call them up. 

BORDER controls the area around the out- 
side, in which you cannot DRAW or PRINT. 

The other colour commands can be used in 
two quite different ways. If you RUN a 
program with, for example 

10 BORDER 2: PAPER 2: INK 7 

everything that follows will be PRINTed white 
on red screen until you replace this line with 
another one which changes the colour com- 
mands. That includes your program listings, 
which can become very hard to read. 
If, on the other hand, you begin with 




1. An easy Spectrum pattern. 




2. You can also mimic perspective 



10 PRINT PAPER 2; INK 7; AT 15,10; "*" 

. . . then only the small area of screen where 
the character itself appears will be red. 

Notice that in the first example each colour 
statement is followed by a colon, whereas in 
the second one each is separated from the next 
by a semi-colon. 

You can incorporate these colour state- 
ments in any program lines using PLOT, DRAW 
or CIRCLE. Try out these lines, for example, 
clearing the screen (CLS) between each: 

PLOT PAPER 1; INK 7; 125, 87 

(Can you see the dot?) 

PLOT 125, 87: DRAW INK 2; 50, 50 

PLOT 125, 87: DRAW PAPER 1; INK 7; 

50,50 
CIRCLE INK 4; 127, 87, 50 

. . . and even this: 

CIRCLE PAPER 2; INK 6; 125, 87, 50: 

DRAW PAPER 3; INK 7; 75,0 

This last combination can be used to produce 
some fairly spectacular (if useless?) effects, 

Equally spectacular, and much used in 
games programming, is the last of the Spec- 
trum statements dealt with in this article: 
FLASH. What it does is to reverse the INK and 
PAPER colours rapidly. 

FLASH must be followed by a number — 
either 1 to switch it on, or to turn it off. Here is 



an example of its use: 

10 PAUSE 

20 IF INKEY$ = "" THEN GOTO 30 

30 FOR n = 10 TO 23: BEEP.015,n: 

NEXTn 
40 BORDER 2: PAPER 2: INK 6: 

FLASH 1 
50 PRINT "DO NOT TOUCH!" 
60 PRINT "THIS COMPUTER IS BOOBY 

TRAPPED" 
70 PRINT 
80 GOTO 30 

When you have entered this program, RUN it. 
Then touch any key — and stand back! 



The ZX81 uses a PLOT command in a similar 
way to the Spectrum: PLOT, followed by two 
numbers which control the position of the 
pixel. But there is one difference, in that the 
ZX81's pixels are sixteen times the size of the 
Spectrum's — so there are only four pixels in 
each character space, while the Spectrum has 
64 pixels in a character space. 

As a result, you cannot draw such detailed 
pictures or patterns — but at least it makes each 
pixel easier to see! This program PLOTs a 
pattern on the screen. Since it restarts every 
time it gets to Line 70, you will have to press 
the BREAK | key when you want to stop: 

10LETX=INT(RND*32) 

20LETY = !NT(RND*24) 

30 PLOT X,Y 

40PLOT63-X,Y 

50PLOTX,43-Y 

60 PLOT 63 - X, 43- Y 

70 GOTO 10 

The ZX81 has no DRAW command, but you 
can use the PLOT command to PLOT a series of 
dots which make up a line. You can see how 
this works with the following program, which 
'draws' a number of squares using two FOR . , . 
NEXT loops: 

10 FOR N = TO 20 STEP 2 

20FORM = NTO43-N 

30 PLOT M,N 

40 PLOT M, 43 -N 

50 PLOT N,M 

60PLOT43-N,M 

70 NEXT M 

80 NEXTN 

And in a similar way you can mimic the CIRCLE 
command using the following short routine: 

10 FOR N = TO 2*PI STEP .1 

20 PLOT 32 + 20*SIN N, 22 + 20*COS N 

30 NEXT N 



This uses the two maths functions SIN and COS 
to work out the coordinates of each pixel that 
makes up the circle. A later article will explain 
these in detail, but for the moment you can 
experiment with the size of the circle by 
changing the two number 20s in Line 20. The 
maximum number you can have is 22 — larger 
will not fit on the screen. Or change the 
position of the circle. At the moment its centre 
is at 32,22 — you can see these coordinates in 
Line 20. Don't forget to make the circle 
smaller if you move it near the edge of the 
screen. 



Although the Commodore 64 has diverse and 
potentially very sophisticated graphics facil- 
ities, there's no provision for accessing the 
more spectacular of these directly from 
BASIC. 

In fact, you can only access the low 
resolution block graphics, letters and symbols 
which form part of the ROM character sets. 

You may find it easier to begin with a 
Commodore 64 accessory, the Simons' 
BASIC cartridge. This is a ROM device 
which clips into the rear of the machine. It 
provides many of the programming facilities 
and keywords necessary to use the sound 
and graphics of the Commodore. 

Eighteen specific keywords (or 'com- 
mands') are provided for the graphics. All but 
one of these — COLOUR — have to be used as 
part of a program. This means you can't 
'draw' pictures on the screen in direct mode. 
And the cartridge has to be fitted if the 
programs written with it are to RUN at all. 



BEGINNING WITH SIMONS' BASIC 



Powering up with the cartridge in place gives 
a white screen, blue border and black upper 
case (capitals) text — and confirmation that 
about 8K of memory has been used up or 
allocated to the new BASIC. 

You can try out the only direct command 
straight away: 

COLOUR 5,5 

The code numbers after the keyword set the 
screen background colour and then the screen 
border colour. Value 5, in each case, is the 
colour value for green (check your manual for 
others) — black lettering is maintained. 

HIRES is the keyword to use to initialize 
high resolution graphics. The code following 
sets the plotting colour (again using the 
standard colour values listed in your manual), 
and then the background colour. (Note the 
space which must follow this instruction.) 

10 HIRES □ 1,0 



This prepares the computer for hi-res plott- 
ing of white on black — the screen will 
immediately turn black in response. 

The first of the 'drawing' commands is 
Ft EC, whose purpose is to draw rectangles. 
The code following this keyword starts with 
the X,Y 'start' position. 

In the X,Y notation, location 0,0 represents 
the top left corner of the screen. The X value 
increases as you go to the right horizontally; 
the Y value increases as you go downwards. 

The grid size varies according to the 
graphic mode in use. In hi-res mode, the 
resolution is normally 320 pixels horizontally, 
200 vertically. The horizontal resolution is 
halved in multicolour mode, to 160 by 200 
pixels. 

The REC keyword — which must be pre- 
ceded by the HIRES instruction — requires 
further coding: 

10HIRESD 1,0 

20 REC 10,50,200,50,1 

30 GOTO 10 

In this example, the first pair of numbers after 
the REC keyword are the X,Y coordinates, 
which place the corner of the rectangle at the 
pixel 10 along from the left and 50 down. The 
next value (200) is the horizontal length of the 
rectangle, and this is followed by the vertical 
(50) drop, all measurements being in pixels. 

The final value in Line 20 is the 'plot type' 
value, used in Simons' BASIC to indicate the 
function to be performed. A here clears a^.. 
dot. 1 plots a dot, and 2 inverses a dot so 
turning it 'on' if it is 'off, or 'off if it is 'on'). 

MULTI is used in support of the HIRES 
keyword to initialize the multicolour graphics 
mode and allows you to choose three plotting 
colours. These are predefined within the 
MULTI instruction and selected by changing 
the plot type value in other instructions. So: 



f 




10 HIRES D 1,0 
20 MULTI 7,8,14 
30 REC 0,75,100,50,1 
40 REC 70,50,50,50,2 
50 REC 100,25,50,100,: 
100 GOTO 10 

Note how the last item in each REC 
instruction — the plot type value — selects, by- 
number, a value in the MULTI instruction: this 
is how a predefined colour is 'called up'. Try 
changing around the last values in Lines 30, 
40 and 50. Remember that the first MULTI 
colour is chosen if the plot type value is 1, the 
second if it is 2, the third if it is 3. A plot value 
of 4, in MULTI mode, inverses the plot. 

You can change the colours even after they 
have been defined by MULTI. LOW COL does 
this by specifying three new colours as: 



99 LOW COL 3,5,6 

These values are accessed by subsequent 
commands in the same way as the REC 
program lines call on the MULTI instruction. 
The program can be made to revert to the 
original plotting colours by using the HI COL 
instruction, which requires no further coding. 
Thus it is possible to switch to a new set of 
colours and back again many times within a 
program should you choose to make use of 
this instruction. 



DRAWING 



There are five 'drawing' keywords — PLOT, 
LINE, CIRCLE, ARC, ANGL and DRAW— and all 
may be used in combination to produce 
screen graphics. In a moment you'll see how to 
make a picture of a flying bird. All except 
DRAW are followed by coding to indicate the 
relevant X,Y values required. Let's look at 
PLOT, LINE and CIRCLE first. 

PLOT is used to plot individual dots where 
required: (NEW your computer) 

10HIRESD 1,0 

20 FOR X=0 TO 100 : FOR Y=0TO 1 

30 PLOT X,Y,1 ^ 

40FORD = 1 TO 10: NEXT D 

50 NEXT Y,X 

60 GOTO 10 ^^ 

This plots a line from the top left of the 
screen, with the X,Y values dictated by the FOR 
. . . NEXT loop starting in Line 20. The last 
value in Line 30 is the plot type value. 

Simons' BASIC has a useful keyword 
which provides an alternative to the now 
familiar FOR . . . NEXT delay loop used in Line 
40. This is the keyword PAUSE which creates 
delays in multiples of one second. 

40 PAUSE 1 

This gives a one second delay before each of 
the dots is plotted. Try inserting other values 
after the keyword. ^-^^fc 

PAUSE may also be used to 'hold' the 
program at its completion, so: 

60 PAUSE 15 

will hold the program for 15 seconds before 
the program ends and the 'ready' prompt 
shows on the screen. 

LINE is probably the most useful of the 
drawing commands. It is used to draw a line 
between two points. All you have to do is 
specify the X,Y start and finish locations. Press 
NEW on your computer and follow the line 
numbering suggested. 

10 COLOUR 3,0: HIRES 1,0: MULTI 8,3,6 
40 LINE 55,100,40,80,3 
160 PAUSE 20 




wm^mmui 



This draws a line in the third colour specified 
by the MULTI keyword, and will form part of a 
graphic when further lines have been added. 
The CIRCLE command is followed by X,Y 
coding which locates its centre, then the 
horizontal radius, then the vertical radius, 
and finally the plot type value: 

20 CIRCLE 65,100,10,16,2 

The circle is plotted in the second colour 
specified by MULTI. Note that the radius 
values differ: this counteracts the effect of a 
rectangular screen on 'square' plotting values. 
In HIRES mode, the Y-radius (the second to 
last value in the instruction sequence after the 
CIRCLE command) has to be 1.4 times the X- 
radius, the value preceding it in the line. For 
MULTI mode, the Y-radius has to be 1 .6 times 
the X-radius if a true circle is required. By 
adjusting the relative X and Y values circles 
and ellipses of various types and sizes can be 
programmed. 



PAINTING 



PAINT is a useful command which enables a 
shape to be filled with a colour specified in a 
MULTI statement: 

30 PAINT 65, 11 0,3 

This colours the circle in cyan, as specified by 
Line 10 keyed in before. The area to be 
coloured — or PAINTed — must be completely 
enclosed for the command to be executed, and 
the X,Y values which follow the keyword must 
be any point within a previously defined 
shape. Try playing around with the values in 
Line 40: you can change colour simply by 
adjusting the plot type value, but note the 
effect of making deliberate mistakes on the 
X,Y values that precede this. 
To get the program you've keyed in to 



produce a picture, type in the following extra 
lines: 

50 LINE 40,80,0,120,3 

60 LINE 0,120,40,100,3 

70 LINE 40,100,55,105,3: PAINT 

50,100,2 
80 LINE 70,100,110,70,3 
90 LINE 110,70,150,90,3 
100 LINE 150,90,110,90,3 
110 LINE 110,90,75,100,3: PAINT 

90,95,2 
120 LINE 60,110,50,130,3 
130 LINE 70,105,80,130,3 
140 LINE 50,130,80,130,3: PAINT 

60,120,2 
150 FOR Z = 63T067:LINEZ,1 10,65, 

140,1 :NEXT:PAUSE 10 

Notice, in particular, how the plot type value 
in the MULTI statement is accessed many times 
during the program. RUNning the program 
displays a flying bird. 

The program First sets the screen colour, 
hi-res mode, and the colour of the plot in Line 
10. Line 20 draws the circle of the bird's head, 
subsequently coloured by Line 30. The draw 
and colour routine for the bird's left wing 
takes place in Lines 40 to 70, that for the right 
wing in Lines 80 to 1 10. The tail is drawn and 
coloured by Lines 120 to 140, and the beak by 
an interesting use of FOR . . . NEXT in Line 
150. Finally, there is a PAUSE before the 
screen returns to normal. 



As with the Commodore 64, the Vic's standard 
BASIC has no provision for direct access of 
the machine's more sophisticated graphics. 
Once again, the best way to begin is with a 
Commodore accessory, the Vic Super Ex- 
pander cartridge. This clips onto the rear of 



the machine to give it the extended BASIC 
you need. With this in place, power up, and try 
this: 

10 GRAPHIC 2: SCNCLR 

20 FOR X = TO 100 STEP6:F0R Y = TO 

100STEP6 
30 POINT 1,X,Y 
40FORD = 1 TO10:NEXTD 
50 NEXT Y,X 
60 GOTO 10 

This is the Vic version of the Commodore 64 
program after the heading DRAWING on the 
previous page — and the explanation is the 
same. You can also produce a Vic version of 
the 64's bird, with the following program: 

10 GRAPHIC 2:C0L0R 0,0,3,6 
20 CIRCLE1 ,460,400,40,64 
25 CI RCLE1 ,460,300,30,34 
30 PAINT1, 460,440 
40 DRAW1 ,420,400TO360,320 
50DRAW1,360,320TO200,480 
60DRAW1,200,480TO360,400 
70 DRAWU60,400TO420,420: 

PA1NT1 ,400,400 
80 DRAW1,480,400TO640,280 
90DRAW1,640,280TO800,360 
100DRAW1 3 800,360TO640,360 
110DRAW1,640,360TO500,400: 

PAINT1,560,350:COLOR0,0,5,5 
120 DRAW1,440,440TO400,520 
130 DRAW1,480,420TO560,520 
140DRAW1,400,520TO560,520: 

PAINT1 ,440,480 
150 DRAW1,480,300TO520,300 
160 POKE 36865,39 + RND{1)*2: 

GOTO 160 

Once again, the explanation of this is similar to 
the 64's, although the BASIC keywords are 
different. 



Acorn computers always start off in a text 
mode when you first turn them on, so the first 
thing to do before you can start drawing is to 
turn to one of the graphics modes. Five 
graphics modes are available — modes 0, 1,2, 
4 and 5, and each has a different set of colours 
and a different resolution. 

For the moment just use Mode 1. So type 
MODE 1 and press RETWN| , Now you can 
start. 

All drawing is done with the graphics 
cursor. You can move it about using MOVE 
X,Y, draw lines using DRAW X,Y and do all 
sorts of other things using PLOT. 

Don't worry that you can't see the graphics 
cursor — it happens to be invisible! 



Type DRAW 640,512 and press | RETURN | . 
You should see a line going from the bottom 
left to the centre of the screen. 

Now enter DRAW 1 279,0 and another line is 
drawn from the last point to the bottom right. 
You just need one more command to complete 
the triangle— DRAW 0,0, 

Well, that was fairly easy, but you may 
have been confused by the numbers. These 
are the X and Y coordinates of the point you 
wanted to go to. The screen is divided up into 
lots of tiny squares. There are 1280 squares 
across the screen along the X-axis numbered 
from to 1279, and 1024 squares up the 
screen along the Y-axis numbered from to 
1023. That is why the centre of the screen has 
the coordinates 640,512. 



DRAWING A PICTURE 



When you are planning out a drawing it is 
best to draw it out first on a sheet of graph 
paper so you can work out the coordinates of 
each point. In fact there is a handy graphics 
planning sheet in the back of the User Guide 
that you can use. 

When you were drawing the triangle you 
may have noticed that the first line started at 
the origin (position 0,0 on the screen), and the 
other lines started at the last point visited. 
What if you wanted your line to start at some 
other point? Here you must use the MOVE X,Y 
command. This simply takes the cursor to the 
point X,Y without drawing a line. Then when 
you use DRAW, the line starts from this point. 

Try typing in the following program: 



10 MODE 1 

20 MOVE 300,200 

30 DRAW 900,200 

Type RUN and you'll see a line drawn near the 
bottom of the screen. This is the base line of a 
house, and these next lines complete the 
drawing: 

40 DRAW 900.600 
50 DRAW 300,600 
60 DRAW 300,200 
70 MOVE 300,600 
80 DRAW 600,900 
90 DRAW 900,600 

Try typing RUN after you enter each line of 
the program to see how the drawing is built 
up. Then try adding a few more lines to give 
the house a door and a couple of windows. 



USING OTHER MODES 



So far you have been working entirely in 
Mode 1. Try changing Line 10 of the last 
program to MODE 5. You'll find that the pixels 
are larger and the lines of the drawing are 
rather coarse — especially the sloping lines 
that make up the roof. In other words, Mode 
5 has a lower resolution than Mode 1. Try it 
again in Mode 0. This has the smallest pixels 
and gives the finest lines (or the highest 
resolution). 

Mode 2 has the same resolution as Mode 5, 
and Modes 1 and 4 have the same resolution. 

The number of colours available in each 
mode also varies. Modes 1 and 5 have four 
colours, Modes 0and 4 have two colours and 
Mode 2 has the full range of 16 colours. 



DRAWING IN COLOUR 



If you don't specify what colour you want, the 
lines are always drawn in white on a black 
background. These are known as the default 
colours. 

To choose another colour you must use the 
command GCOL 0. This stands for Graphics 
COLour; (don't worrv about the 0). 

Change Line 10 back to MODE 1. Mode 1 
has four colours — black, red, yellow and 
white — and these are numbered from to 
3. If you type GCOL 0,2 and then draw a 
line it will be drawn in yellow. GCOL 0,1 will 
draw a line in red. Try adding these two 
commands to the last program so that the 
walls of the house are drawn in yellow and the 
roof is drawn in red. The first one will have to 
go at Line 15, and the second one at Line 75. 

You can change the colour of the back- 
ground as well as the foreground. Use the 
same command — GCOL — but this time add 
128 to the colour code number. For example, 
GCOL 0,129 followed by CLG to CLear the 




Graphics screen will give a red background. 
Type in and RUN this next program. It 
draws random-sized rectangles on the screen 
in red, yellow and white on a black 
background. 



RND(800) 
side=RND(4)*100 



10 MODE 1 

15 FOR boxes =1 TO 30 

20X = RND{1000) :Y = 

30 base = RND(4)*100 : 

40 GCOL 0,RND(3) 

50 MOVE X,Y 

60 DRAW X + base, Y 

70 DRAW X + base,Y + side 

80 DRAW X,Y + side 

90 DRAW X,Y 

100 NEXT 

Line 1 5 starts the loop to draw 30 rectangles, 
and Line 20 selects the coordinates for the 
bottom left corner. Line 30 chooses the length 
of the base and side of each box. Line 40 
selects the colours, then the next few lines 
draw them out. 

Perhaps you would prefer a different 
colour scheme, say black and white boxes on a 
red background? You just need to make two 
changes. Add one line to change the back- 
ground to red: 

13 GCOL 0,129: CLG 

Then alter Line 40 to: 

40GCOL0,(RND{2)-1)*3 

This makes sure that the foreground colour 
codes are either for black or 3 for white. 



USING THE PLOT COMMAND 



So far you can move the graphics cursor about 
the screen and draw lines, and you can also 
use colour. But there are a lot more com- 
mands which use the keyword PLOT. For 
example, PLOT 69,X,Y plots a dot at position 
X,Y. Try adding a doorknob to the house! 

You can also draw dotted lines with PLOT 
21 ,X,Y as this next program shows: 

10 MODE 1 

20GCOL0,130:CLG 

30 PRINT TAB(0,3)"Please sign on '" 

"the dotted line" 
35 GCOL 0,0 
40 MOVE 500,190 
50 PLOT 21, 11 00,1 90 
60 INPUT TAB(17,25),signature 

As well as demonstrating the PLOT 21 com- 
mand it also shows how you can mix text and 
graphics on the same screen. Note that the 
text is still positioned using TAB so you will 
need to use the text and graphics planning 
sheets in the back of the User Guide to make 
sure the text matches up with the graphics. 

One of the most useful PLOT commands is 
PLOT 85 which plots and fills a triangle. It is 
written out as PLOT 85,X,Y and this draws a 
solid triangle between the point, X,Y and the 
last two points visited. Try this: 

10 MODE 1 
20 GCOL 0,2 
30 MOVE 200,200 
40 MOVE 1080,200 
50 PLOT 85,640,900 



'AMAIN 




3. Simple shapes like this house will get you started 



4. Fifteen triangles make up this rocket on the BBC 



Note that you don't actually have to DRAW 
anything. You just have to visit two of the 
points, in this case at Lines 30 and 40, then 
use PLOT 85 to the third point to make a solid 
triangle. 

With a bit of thought almost any shape can 
be divided into a number of triangles and 
plotted as a solid shape right from the start. 
For example, a rectangle can also be made up 
out of two triangles, and the program to draw 
this is: 

10 MODE 1 

20 GCOL 0,2 

30 MOVE 300,300 

40 MOVE 300,700 

50 PLOT 85,1000,300 

60 PLOT 85,1 000,700 



Finally, here is a program that makes good 
use of the triangular fill facility. It draws a 
large, three-stage rocket in three colours in 
the centre of the screen (fig 4). It is actually 
built up out of 15 triangles. 

10 MODE 1 

20 MOVE 600,1000 

30 MOVE 520,900 

40 PLOT 85,680,900 

50 GCOL 0,2 

60 PLOT 85,520,800 

70 PLOT 85,680,800 

80 GCOL 0,3 

90 PLOT 85,480,740 

100 PLOT 85,720,740 

110 GCOL 0,2 

120 PLOT 85,480,540 

130 PLOT 85,720,540 



140 GCOL 0,3 
150 PLOT 85,440,460 
160 PLOT 85,760,460 
170 GCOL 0,2 
180 PLOT 85,440,120 
190 PLOT 85,760,1 20 
200 GCOL 0,1 
210 MOVE 720,1 20 
220 MOVE 680,120 
230 PLOT 85,760,20 
240 PLOT 85,640,20 
250 MOVE 520,120 
260 MOVE 480,1 20 
270 PLOT 85,560,20 
280 PLOT 85,440,20 

Now try drawing your own pictures. If you 
want more colours you can try Mode 2 — this 
gives you the whole range of 16 colours. 



SSIJ 



When you first switch on the computer it 
displays its text screen. On this you can display 
all the characters on the keyboard, plus the 
ROM graphics you have used in previous 
programs. 

If you want to draw anything more subtle 
than these chunky graphics allow, you must 
use the machine's high resolution graphics. 
These are displayed on a completely different 
screen from the text screen — it isn't possible 
to write text on the high resolution screen, nor 
draw high resolution graphics on the text 
screen. 



DRAWING LINES 



Here is a program which draws two lines 
across the screen using graphics mode 3: 



20 PMODE 3,1 
30 PCLS 



40 SCREEN 1,0 

50 LINE (0,191) — (255,0),PSET 

60 LINE (0,0) -(255,1 91 ),PSET 
70 GOTO 70 

The program draws lines by first specifying 
the mode and page (part of the computer's 
memory) you wish to put the graphics in- 
formation in. Line 20 says PMODE 3,1 . This 
tells the machine to draw in graphics mode 
three and to store whatever you draw on the 
screen starting on page 1 of graphics memory. 
If you want to draw just one screenful of 
graphics it's easiest to specify page 1 . 

Next, Line 30 clears the high resolution 
screen. PCLS is the high resolution equivalent 
of CLS. 

To switch on the high resolution screen 
you must use the SCREEN command. So Line 
40 says SCREEN 1 ,0. The colour set chosen by 
putting as the second number consists of 



green, yellow, blue and red — if you'd put in 1 
instead, the colour set would have been buff, 
cyan, magenta and orange. 

This program draws lines in green and red, 
which are known as its default colours because 
they appear if you specify no others. To use 
any other combination of colours from the 
colour set you would have to use the COLOR 
command (note the spelling); this will be 
covered in detail later. 

The first line is drawn by Line 50. The 
numbers in the brackets tell the computer 
where you want the line to start and finish. 
The high resolution screen is divided into 256 
pixels by 192 — along the width of the screen 
they are numbered from to 255, and along 
the height of the screen they are numbered 
from 0to 191, starting from the top. 

Finally, PSET tells the machine to draw in 
the highest numbered colour in the colour set 
you are using — in this case red. 



Line 60 draws the other line. It works in 
exactly the same way as Line 50, but the start 
and end points have been redefined. 

To prevent the machine automatically 
switching back to the text screen once it has 
drawn on the high resolution screen you have 
to set up a loop so that it never reaches the end 
of the program. So Line 70 says GOTO 70. If 
the computer does switch back to the text 
screen you'll not be able to see what has been 
drawn on the high resolution screen. 



DRAWING CIRCLES 



It's very easy to draw circles with the Dragon 
or Tandy because their BASIC has a CIRCLE 
command. 

This program will draw three different 
sized circles, each in a different colour. 

20 PMODE 3,1 

30 PCLS 

40 SCREEN 1,0 

50 CIRCLE (70,95),1 0,2 

60 CIRCLE (118,95)3.3 

70 CIRCLE (184,95)34 

80 GOTO 80 

The mode is chosen as before, as is the colour 
set for the circles. 

The CIRCLE command in Lines 50 to 70 has 
four elements. The first and second numbers 
plot the centre of the circle, the third one is 
the radius in pixels, and the fourth is the 
colour. So the circle drawn by Line 50 has its 
centre at (70,95), a radius of 10 pixels, and is 
drawn in yellow. The circle drawn by Line 60 
is a blue one, of radius 20, and with its centre 
at (118,95). The last circle, drawn by Line 70, 
is a red one, of radius 30, with its centre at 
(184,95). 

Finally, Line 80 is a loop which prevents 
the program stopping and switching off the 
high resolution screen. 



DRAWING A JEEP 



You've now got the ingredients for drawing 
many different pictures. Type in and RUN this 
program and you'll see the outline of a Jeep 
without the details shown on the right. 

20 PMODE 3,1 

30 PCLS 

40 SCREEN 1,0 

50 LINE {1 08,64) -(1 88,64), PSET 

60 LINE -(188,116),PSET 

70 LINE -(104,116),PSET 

80 LINE - (96,96), PSET 

90 LINE- (70,96), PSET 

110 LINE - (74,96),PSET 

120 LINE - (74,86), PSET 

130 LINE -(114,86), PSET 

140 LINE -(132,104), PSET 



150 LINE -(140,1 04), PSET 
160 LINE -(140,64), PSET 
170 UNE(76,96)-(76,108),PSET 
180 LINE -(100,108),PSET 
320 GOTO 320 

As before, the mode chosen is 3. Line 50starts 
drawing at (108,64), and draws a red line to 
(188,64). In order to continue drawing from 
the same point, you don't have to tell the 
computer where to start drawing from — it just 
carries on from where it is now. Lines 60 to 
160, therefore, only define the ends of success- 
ive lines. 

Line 170, though, draws a line from a new 
starting point, so both the start and end have 
to be defined. 

Now add a coach line, windscreen, tyres and 
hubcaps: 

200 UNE(140,88)- (188,88), PSET 
220 LINE{11 8,64) -(104,86), PSET 
230CIRCLE(82,116),14,3 
250CIRCLE(82,116},6,2 
270 CIRCLE(1 68,1 16),14,3 
290 CIRCLE(1 68,1 16),6,2 

Line 200 draws the coach line, while the 
windscreen is drawn by Line 220. CIRCLE is 
used by Lines 230 and 270 to draw the outline 
of the tyres, and by Lines 250 and 290 to draw 
the hubcaps. 



PAINTING AN AREA 



It's easy to spray your Jeep — you don't even 
need a spray gun because the machine does it 
for vou with its PAINT command. 



The PAINT command fills any shape you've 
drawn on the screen with a specified colour. It 
too has four components. The first two, as 
you'll have guessed, mark the spot where 
painting has to start. The third is the paint 
code. And the fourth is the colour code of the 
border, or line, where the painting has to stop. 

Add these lines to the program and you'll 
see how the command looks in practice: 

190PAINT(90,100),2,4 
210 PAINTfl 20,1 10) ,4,4 
240PAINT(82,116),3,3 
260PAINT(82,116),2,2 
280 PAINT(1 68,1 16),3,3 
300PAINT(168,116),2,2 
310 PAINT(180,80),2,4 

RUN the program and you'll see each 
section of the Jeep being filled with colour. 

It is not possible to have all the painting 
lines at the end of the program for one 
important reason — the area that you want to 
paint must be fully enclosed by the same 
colour (the border colour), or the edge of the 
screen. Any lines of a different colour will be 
painted over. 

The colours available in PMODE 3,1 are 
green (1), yellow (2), blue (3) and red (4). You 
may like to try painting the Jeep differently. 
All you have to do is change the paint colour 
number in the appropriate PAINT lines. 

You may like to try adding a few more parts 
to the Jeep using the LINE and CIRCLE com- 
mands. For example, it probably needs a 
steering wheel — see what you can do. 




S. The Dragon's PAINT command makes this Jeep easy 




MYSTERIES EXPLAINED 



All those baffling Xs and Ys in 
programs are really quite simple 
when you understand what they're 
doing. Here's how you can use 
variables in your own programs 



When you want to store some information in 
your computer, you have to tell the computer 
how to identify the information . Otherwise t he 
computer will not know how to perform this 
simple task, nor will it be able to find the 
information again when you want it. 

One of the pieces of information that you 
will want to store most often is a number 
which increases and decreases as the program 
progresses. This number might represent, 
say, your score in a game. Or it might 
represent the number of places that a charac- 
ter has moved across, or up or down, the 
screen. 

Quite often it will simply be a number 
whose value changes each time the computer 
'loops' through a section of program. Here is 
one simple example: 

10LETX = 

20LETX=X+1 

30 PRINT X;"D"; 

40 FOR T=0 TO 10: NEXT T 

50 GOTO 20 

Here it is Line 50 which is creating the loop, 
making the program repeat itself 
indefinitely — or until you pull out the plug. 
Each time it reaches Line 20, the number 
represented by X (which was originally set at 
zero by Line 10) is increased by one. 

The X in this program is called a numeric 
variable, because it controls a number. 

One way of representing how a numeric 
variable works is to imagine a series of boxes 
or compartments, like those used for sorting 
letters. Each box is given a name. In a simple 
computer, the names would be the letters of 
the alphabet. When you wanted to store a 
number you would simply assign that value to 
one of the boxes. For example: 

LETC=25 

This stores the value 25 in the variable C. Not 
all computers require you to use the word LET 
(which is known as an assignment statement), 
but until you are experienced in computing it 
is a good idea to include it. It simply makes 
your life a little easier when reading through 
programs. 

Once stored, this value can be used within 
other statements and calculations. For 



example you could type: 

PRINT C*4 

or 

PRINT C/5 

These statements would give the answers 100 
and 5 respectively. But if you type in: 

PRINT C 

you will see that the value of C has remained 
unchanged. To change the value of C, to 
increase it to 30 for example, either do it 
directly by typing 

LETC = 30 

or by typing 

LETC = C + 5 

This is, of course, precisely what your 
original mini-program did. 



NAJVIES OF VARIABLES 



The combinations of letters and so on that 
you are allowed to use as numeric variables 
varies from computer to computer. The main 
rules are given in the box (page 95). 

But one thing no computer will allow is a 
variable beginning with a number. This is 
because it knows that 

LET 7 = 14 

. . . must be nonsense. Nor are you allowed to 
use key command or statement words like 
GOTO, THEN or AND. 



VARIABLES IN ACTION 



Most of the programs you write will use 
several variables, often interacting on one 
another. Here, for example, is a short 
program simulating the action of a petrol 
pump: 



10 LET litres = 

20 LET pence = 

40 PRINT "Enter 2, 3 or 4 (star)" 

50 INPUT a 

60IFa = 2THENLETqty=1/38 

70 IF a = 3 THEN LET qty = 1 /40 

80 IF a = 4 THEN LET qty = 1 /42 




90CLS 

100 IF INKEY$ = "n" THEN LET pence= 

pence + 1 : LET litres = litres + qty 
105 PRINT AT 7, 12; a; "D STAR" 
110 PRINT AT 9,12; "LITRES" 
120 PRINT AT 10, 12; litres; "DDDD 

□ □□□" 
130 PRINT AT 12, 12; "THIS SALE" 
140 PRINT AT 13, 10; "CD"; 

pence/100;"DnrJ" 
150 IF INKEYS = "f"THEN CLS: GOTO 10 
200 GOTO 100 



10 LET LITRES = 
20 LET PENCE = 
40 PRINT "ENTER 2, 3 or 4 (STAR)' 



WtfffiOT?- 



WHAT IS A VARIABLE? 



HOW VARIABLES ARE USED 

CONTROL VARIABLES FOR 

FOR . . . NEXT LOOPS 

WHAT IS A STRING? 



NUMERIC AND STRING 



VARIABLES AND THEIR USES 

WHAT IS A NULL STRING? 

HOW NULL STRINGS ARE USED 

IN GAMES PROGRAMMING 




50 INPUT A 

60 IF A = 2THEN LET QTY = 1/38 

70 IF A = 3THEN LETQTY = 1/40 

80 IF A = 4THEN LETQTY = 1/42 

90CLS 

100 IF INKEY$o"N" THEN GOTO 105 

102 LET PENCE = PENCE+1 

1 03 LET LITRES = LITRES + QTY 
105 PRINT AT 7, 12; A; "□ STAR" 
110 PRINT AT 9,12; "LITRES" 
120 PR I NT AT 10, 12; LITRES; 

"nDDDDDDD" 
130 PR I NT AT 12, 12; "THIS SCALE" 
140 PRINT AT 13, 10; "£□"; 

PENCE/100;" DDD" 
150 IF INKEY$ = "F" THEN RUN 
200 GOTO 100 



[ELE 



10 LET LITRES = 
20 LET PENCE = 
30PRINT"nH":POKE650,128 
40 PRINT "ENTER 2,3 OR 4 (STAR)" 
50 INPUT A 

60 IF A= 2 THEN LET QTY = 1/38 
70 IF A= 3 THEN LET QTY = 1/40 
80 IF A = 4 THEN LET QTY = 1/42 
90 PRINT "□" 

100PRINT"@HSHHH 
UUIIUII ";A; STAR 

110 print"EHHHHMHH 

feJfelfeJUUULITRES 

120 print"@SHSHMMHSM 

23SUUUUUUTHISSALE 

130 GET K$ 



140IFK$ = "F"THENPRINT'Q": 

GOTO10 
150 IF K$ = "N" THEN LET PENCE = 

PENCE+ 1 :LET LITRES = LITRES + QTY 

166 print' aHMHHaHsaM 

II UUIIUII LITRES 

170 print "gaaaiBsissaa 
Haiauuuuuuf 

"PENCE/100 
200 GOTO 130 



1 LET litres = 

20 LET pence = 

25@% = &90A 

30 CLS: PRINT 

40 PRINT "Enter 2, 3 or 4 (star)" 



MimMMMm 



50 INPUT a 

60 IF a = 2 THEN LETqty = 1/38 
70 IF a = 3 THEN LETqty = 1/40 
80 IF a = 4 THEN LETqty = 1/42 

90CLS 

100 PRINT TAB(16,7};a;"D STAR" 

110 PRINT TAB(16,9);"UTRES" 

120 PRINT TAB(1 6,1 2);"THIS SALE" 

125 @% = &2020A 

130 K$ = GETS 

140 IF K$ = "F" THEN CLS: GOTO 10 

150 IF K$ = "N" THEN LETpence = 

pence + 1 : LET litres = litres + qty 
160 PRINT TAB(16,10);litres 
170 PRINT TAB(1 4,1 3);"f.";TAB(2); 

pence/1 00 
200 GOTO 130 



ISM 



10 LET LITRES = 

20 LET PENCE = 

30 CLS: PRINT 

40 PRINT "ENTER 2,3 OR 4 (STAR)" 

50 INPUT A 

60 IF A = 2 THEN LET QTY =1/38 

70 IF A = 3THEN LETQTY=1/40 

80 IF A = 4 THEN LETQTY = 1/42 

90 CLS 

100 PRINT® 140,A;"STAR" 

110 PRINT© 200," LITRES" 

120 PRINT® 267,'THIS SALE" 

130 LET K=PEEK(344) 

140 IF K = 251 THENCLS:GOTO10 

150 IF K = 247 THEN LET PENCE = 

PENCE + 1 :LET LITRES = LITRES + QTY 
160 PRINT© 206,UTRES 
170 PRINT© 330,PENCE;"PENCE" 
200 GOTO 130 

It is worth experimenting with this program 
until you understand it thoroughly because it 
has a whole set of variables. 

What some of them are doing may be 
obvious just from looking. The variable a, for 
example, adjusts a pennyworth of petrol from 
1 /38th of a litre down to l/42nd, depending 
on which grade you want. 

Then, as soon as you press N (for 'nozzle') 
the 'pump' starts clocking over. Pence, origin- 
ally set at zero by Line 20, clocks up in units 
of one (there's not much point in having 
fractions of a penny). And litres, the amount 
delivered, increases by a pennyworth, qty. 

Every time the program reaches Line 200, 
so long as you keep pressing the N key, the 
program goes back to Line 130 (100 on the 
Spectrum) to keep the clock turning over. Not 
to Line 10, you'll notice — that would just set 
everything to zero again. 

When you RUN this program you'll notice 
one oddity: some of the decimal fractions you 




get are very long indeed. This does not mean 
that there's a fault in your machine. It is just a 
weakness in computers' ability to convert 
binary, the computer's arithmetic, into every- 
day decimal. 



CONTROL VARIABLES 



As well as being used in LET statements, 
variables are also used in FOR . . . NEXT loops 
as you have already discovered (pages 16 to 
21). Here, they are known as control variables. 
On some computers, the characters you can 
use as control variables differ from those 
permitted for numeric variables (see box). On 
the Spectrum, for example, you can say 

LET score = 
LET best = 

... but you cannot make your program clearer 
by using a similar set of characters in place of 
a numeric variable — as in 

FOR time =99999 

You must use a single letter, such as T, 
instead. 



STRINGS AND STRING VARIABLES 



A string in BASIC is rather like a shopping 
basket. You can fill it with a variety of items, 
then handle it as one unit — without having to 
move each item separately. 

Strings can contain almost anything — 
letters, numbers, spaces, even graphics char- 
acters. They must always be 'tied up' with 
double quotation marks, " and ", at each end. 



Here arc a few examples: 

"CUSTOMER'S NAME AND ADDRESS" 
"PLEASE ENTER YOUR ANSWER NOW" 
"January 24th" 
"01-734 6710" 
"SW1A 1AA" 

The following is also a string, although only 
on the Spectrum can you key it in directly in 
this form: 



The computer can measure a string — that is, 
how many letters and so on it contains. It can 
also join two or more strings together end-to- 
end, or slice one into two or more bits if it 
doesn't fit your program. 

But the contents of the string do not interest 
the computer at all. It can't add them, except 
in the sense of joining them end-to-end, and it 
won't multiply or divide them. 

To prove this — and also to bewilder your 
non-computer-owner friends — try this short 
program: 

10 PRINT "2 + 2= □"; 

20 FOR N = 1 TO 200: NEXT N 

30 PRINT 1+2*2 



10 PRINT "2 + 2= □' 
20 FOR N = 1 TO 40 
25 NEXT N 
30 PRINT 1+2"2 



As you'll see, the contents of the string are 
PRINTed exactly as you entered them. Only 
Line 30 is actually calculated and its result 
PRINTed out. (Line 20, of course, merely 
makes the computer 'scratch its head' before 
delivering its answer. On the Acorn change 
the 200 to 2000 for a better delay.) 

If you want to use the same string only 
once in a program, that's all there is to know. 

But if you want to use it more than once, 
you can save typing time — and memory 
space — by giving the string a label. This label 
is called a string variable. The length it can be 
varies from one computer to another (see 
box), but must be followed by a dollar sign, $. 

Here, for example, is the 'bones' of an 
automatic ordering system: 

1 LET A$ = "PLEASE TYPE IN HOW 

MANYD" 
20LETB$ = "DYOUWANT" 
30 PRINT A$; "BURGERS"; B$: 

INPUT B 
40 PRINT AS; "FRIES"; B$: 

INPUT F 
50 PRINT AS; "SHAKES"; B$: 

INPUTS 
60 PRINT "THANK YOU. THAT WILL 

BE";(B*55+F*40 + S"35)/100; 

" □ PLEASE" 



10 LET A$ = "PLEASE TYPE IN HOW 

MANYD" 
20LETB$ = "D YOU WANT" 
30 PRINT A$; "BURGERS";B$ 
35 INPUT B 

40 PRINT AS; "FR!ES";B$ 
45 INPUT F 

50 PRINT AS; "SHAKES";B$ 
55 INPUT S 
60 PRINT "THANK YOU. THAT WILL BE"; 

(B*55 + F*40 + S*35)/100; 

"□ PLEASE" 

It isn't a particularly good ordering system; a 
more visual one would be better. But it does 
show how strings can shorten a program 
(though less so on the ZX81). 

This is why word- and data-processing 
systems — with things like "Customer account 
number" and "Price per thousand" and "plus 
VAT at 15%" occurring over and over 
again — use string variables extensively. 

But you can use them in games programm- 
ing too. Suppose you have a long line of 
graphics symbols — the wall of a dungeon for 
an adventure game, say. All you have to do is 
type it in once, 'label' it and you can use it as 



Variables: what you can and cannot use 


Type of 
variable 


55 


H 


SEtESSO 


Numeric 


Length: no limit 


Length: 


Length: 


variable 




Maximum 255 


Maximum 255 






characters 


characters, but 
only first two are 
recognised 




On the Spectrum, 


Capital or lower 


Capital letters only 




capital or lower 


case letters: either 


are allowed, but 




case letters are 


are allowed, but if 


must not start with 




allowed but 


capitals, must not 


keyword - eg, TO 




computer does not 


start with a 


as in TOTAL 




distinguish 


keyword -eg, TO 






between them 


as in TOTAL 






Punctuation: not 


Punctuation: only 


Punctuarion: not 




allowed 


underline allowed 


allowed 




Spaces: allowed, 


Spaces: not 


Spaces: allowed, 




but do not count 


allowed 


but do not count 


Control 


Single letter 


As numeric 


Single letter or 


variable of 


only -eg, A 


variable 


single letter 


FOR. . .NEXT 






followed by one 


loop 






character -eg, A, 

A3 


String 


Single letter 


As numeric 


As numeric 




followed by $ eg, 


variable, but with 


variable, but with 




A$ 


$ added eg, 


$ added - eg, 






ADDRESS? 


AD$ 


often as vou like. 


40 PRINT INK 2; AT 8, 0; a$ 


You can move such a string around 


the (nT0n + 31) 


screen, too, as this short program shows: 


50 PRINT INK 2; AT 12, 0; a$ 


5 


(66-nT0 97-n) 


60 BEEP .02, n/2 


10 let b$= u nn □□[:□□□□□ 


70 NEXT n 


DDDDDQDDDDDDDD 


3 80 GOTO 30 


DDDDDDD" 


a 


20LETa$ = b$ + "DDnnAHAPPY 


EASTER TO YOU ALLD D D" + b$ 


4 M0DE4 


30 FOR n = 1 TC 


)65 


5 VDU23;8202;0;0;0; 




95 



i»M:tM\\lil 



iiiii 




6VDU19,0,4;0; 
7VDU19,1,3;0; 
8CLS 

i0LETB$= ,< nnnnnnnnnnn 

DDDDDDDDODDDDnD 

DDnDDDDDDDDDDQ" 
20 LET A$ = B$ + "A HAPPY EASTER 

T0Y0UALL" + B$ 
30 FOR N = 1 TO 65 
40 PRINT TAB(0,12);MID${A$, 

N.40) 
50 PRINT TAB(0,1 6);UI D$(A$,65 - N,40) 
60 S0UND1, — 10,N*2,1 
65 D = INKEY(10) 
70 NEXT N 
80 GOTO 30 



i0LETB$="Dnnnnannnnn 

iJDDDDaDDDDDDDD 

DDDDDD" 
20 LETA$ = B$ + "nDD DA HAPPY 

EASTER TO YOU ALLD D D " + B$ 
30 FOR N = 1 TO 65 
40 PRINT AT 8, 0; A$ (N TO N + 31) 
50 PRINT AT 12, 0; A$ (66 -N TO 97 -N) 
70 NEXT N 
80 GOTO 30 



5CLS 

10 LET B$ = "D □□£]□□□□□□□ 

DQaDDDDDDDDDDDD 

DDDDDD" 
20 LET AS = B$ + " D D D A HAPPY EASTER 

TO YOU ALLODD" + B$ 
30FORN = 1 TO 65 
40 PRINT® 160,MID$(AS,N,32) 
50 PRINT® 320,MID$(A$,66-N,32) 
60 SOUND N*3,1: NEXT N 
80 GOTO 30 



DDDDDDDDDDDDDDD 
DDDDDDDDD":B$ = A$ 
40 LET A$ = RIGHT$(A$,61 ) + LEFT$(A$,1 ) 

45 print " n@aaBBBBBB" 

LEFT$(AS,40) 
50LETB$ = RIGHT$(B$,1) + 

LEFT$(B$,61) 
55 PRINT "@BBBBBB"LEFT$ 

(BS.40) 
60LETS = S + 5:IFS>255THENS = 
70 POKE 54273,S 
80 GOTO40 



BE 



10 PRINT "□" 

15 POKE 54277,33:POKE 54278.255: 

POKE 54273 + 23,1 5: POKE 54276,33 
20 LET AS = " D D D D D HAPPY EASTER 

TO YOU ALLD DDDDDDDDD 



10PRINT"Q" 
15 POKE 36878,1 5:S = 127 
20 A$ = " D D D D D HAPPY EASTER 
TO YOU ALLD DDDDDnnDD 

DDDDDDDDDDDDDDD 
DDDDDDDDD":B$ = A$ 
40 A$ = RIGHT${A$,61 ) + LEFT$(A$,1 ) 

45 PRiNT"a@BHaaaHBB" 

LEFT$(A$,22) 
50 B$ = RIGHT$(B$,1) + LEFT$(B$,61) 
55 PRINrQiaMHBaa"LEFT$ 

(B$,22) 
60 LET S = S + 5:IF S > 255THENS = 128 
70 POKE 36876,S 
80 GOTO40 

Here, as Line 20 shows, you have an 
enormous string — all the spaces from Line 10 
(20 in the Commodore programs), plus the 
message, plus all the spaces again — joined 
together into one. How this is done, and how 
the string is 'sliced' again to fit the screen, is 
in a later article. But if in the meantime you 
want to change the message, make sure your 
new one (including spaces) is the same length 
as the original. Otherwise you will have to 
figure out the implications of the numbers in 
Lines 40 to 55 and change them instead. 

An even more common use of the string 
variable is when the computer is expecting 
information which will constantly change. 
For example: 

10 PRINT "WHAT IS YOUR NAME?" 

20 INPUT N$ 

30 PRINT "HELL0,D";N$ 

In this program, Line 10 PRINTs out the 
string WHAT IS YOUR NAME on the screen, 
followed by a question mark. The computer 
then waits for you to enter a name — that is, a 
series of letters which form another string — 
and calls it N$. 

On Line 30, it PRINTs out the string "HELLO", 
then recalls the N$ it has stored in the line 
above. So the screen display reads: 




HELLO, TOM (or DICK or HARRY) 

or whatever name you INPUT. 

Note that here the strings WHAT IS 
YOUR NAME? and HELLO are not given names 
like A$ or WHAT$ or HELLOS, because they 
appear only once and the computer does not 
need to remember what HELLO is — whenever 
it gets to Line 20 it just reads it and PRINTs it 
out. 

The name that you enter does have to be 
given a label, though. It can be different each 
time the program is RUN. It also has to be 
stored on Line 20 so that it can be recalled by 
Line 30. 

There is, incidentally, a shorter version of 
this last program, which is 'stretched' a bit for 
the sake of clarity. The shorter form is: 

10 INPUT "WHAT IS YOUR NAME"; N$ 
20 PRINT "HELLO, D";N$ 

(On the Acorn computers change the ; in Line 
10 to a ,). 



NULLSTRIMGS 



Yet another use for the string variable is one 
you may have already encountered in games 
programming (pages 54 to 59). It varies 
slightly from computer to computer, but goes 
something like this: 

20IFA$ = ""THENGOTO10 

The two lots of quotation marks with nothing 
between them are known as a null string. They 
mean, 'If the input equals nothing' — in other 
words, if no key is being pressed — ' then go 
back to Line 10 and wait until one is pressed.' 

This prevents the computer from skipping 
through the program so quickly that there 
simply isn't time for the player to press one of 
the keys. 

Two sets of quotation marks with a space 
between them, however, are quite a different 
thing. If you change the line to read: 

20IFA$ = "D"THENGOTO10 

then the program will jump back to Line 10 
only if the player's input equals a space — in 
other words, if he is pressing the space bar or 
space key. 



CUMULATIVE INDEX 



An interim index will be published each week. There will be a complete index in the last issue of INPUT. 



A 




creating a 


1U-15 


AND 


35, 36 


G 




Animation 


26-32 


Games 




Applications 




animation 


26-32 


hobbies' files 


46-53 


controlling 




B 




movement 


54-55, 57-59 




firing missiles 


55-58 


Basic programming 




fruit machine 


36 


decision making 


33-37 


guessing 


3-5 



programmer's road signs 60-64 

random numbers 2-7 

the FOR. . .NEXT loop 16-2 1 

Binary 38,41,44,45 

Brackets, use of 35 

Breaking out of a program 4 



Cassette, choice of 25 
Christmas program, 

Acorn 64 

CHR$, Dragon, Tandy 26-27 
CLEAR 

Dragon, Tandy 14, 27 

Spectrum 10 

CLS, explanation of 27 

Craps program 63 

D 

DATA 

best systems to use 45 

statements 

Acorn 1 1 

Commodore 64 1 4, 4 3-44 

Dragon, Tandy 13,40-41 

Spectrum 8-9, 44-45 

Vic 20 14 

Decimal, conversions 
from binary 38, 42 

Decision making 33-37 

DEFPROC 
Acorn, see procedures 

Delaying action 1 7 

Dice-throwing program 64 



ENDPROC./kora 64 

Error, causes of 36 



Filing system program 

Acorn 52-53 

Commodore 64 48-50 

Dragon, Tandy 51-52 

Spectrum 50-51 

FOR... NEXT loop 16-21 

Frog, controlling and 



moving characters 54-59 

routines 8-15 

GET 55 

GET$, Acorn, Commodore 64, 
Vic 20 55,57,58 

GOSUB 62-64 

GOTO 18-21,60-62 

Graphics 

characters 38-45 
creating and moving 

UDGs 8-15 

frogUDG 10-15 

instant embroidery 2 1 

low-resolution 26-32 

painting by numbers 19 

sunset pattern 20 

tankUDG 10-15 
also see animation; 
movement; ROM graphics; 
teletext; UDG 

Grid, ofUDG 
see UDG 

Gunshell, firing a 

Acorn 12 

Commodore 64 15 

Dragon, Tandy 14 



Spectrum 



10 



H 



Helicopter, building a 

Commodore 64 31 

Hexadecimal, conversion 

from binary 38, 42, 45 

Hobbies file 46-53 



IF.. .THEN 3,33-37 

IF... THEN... ELSE 37 

IF... THEN... GOTO 36 
INKEY 

Acorn 28-29 

INKEYS 54-55 

INPUT statement 3, 4-5 

INT 2-3 

K 

Keypress, detection of 54-55 



Keywords, spelling of 19 



Line numbers, in programs 7 
LOAD command 22-25 

Logical operators 35-37 

Low-resolution graphics 

see graphics 



M 



Machine Code programming 

games graphics 38-45 

speeding up games routines 8-15 

Menu 46-47 

MODE, Acorn 28 

Movement 

Acorn 28-29, 58 

Commodore 64, Vk 2030-31, 59 



multiplication 

READ 40-44 
REPEAT.. . UNTIL, Acorn 36 

RND function 2-7 

Acorn 2, 3, 4-5 

Commodore 64 2, 3, 4, 5, 6, 7 

Dragon, Tandy 2, 3, 4, 6, 7 

Spectrum, ZX81 2, 3, 4, 6, 7 

ROM graphics 

Acorn 28, 29 

Commodore 64 31,37 

Dragon, Tandy 26, 27 

Spectrum, ZX81 31, 32 

Vic 20 31 

Running man, building a, 

Acorn 28-29 



Dragon, Tandy 


26-27 


,57 


Satellite, building a 




Spectrum, ZX81 


31-32 


,57 


Dragon 


26-27 


N 






SAVE 








command 


22-25 


Nested loop, definition 




setting controls 


22 


and use of 




19 


verifying 


24-25 









Shell, firing a 


10-15 






Sprite definition and use 


of, 


ON... GOSUB 




64 


Commodore 64 


14,15 


ON... GOTO 




62 


STEP 


17,21 


Opcodes 




67 


STOP, Spectrum, ZX81 


4,64 


Operators 




35 


String variables 


4-5 


OR 


35-31 


Subroutines 


62-63 








Symbols, arithmetic 


6 



p 

Parameters 64 

Peripherals, cassette 22-25 
PMODE, Dragon, Tandy 12 
POKE 

Commodore 64 15 

Dragon, Tandy 13,40 

PRINT 26-32 

Procedures, Acorn 64 

Program 

BASIC 8 
BREAKing into 4, 7, 1 1 

line numbers 7 

punctuation of 4 

slowing down 17 

PSET, Dragon, Tandy 13 



T 

Tables, multiplication 5-7 
Tank, controlling and 

creating a 11-15 

Teletext graphics, BBC 28-29 

Terminating numbers 34 

u 

UDG, definition of 8-15, 40-44 

grids for 8-11 

Acorn 1 1 

Dragon, Tandy 13 

Spectrum 8-9 

DATA for 45 

creating your own 38-45 



R 



V 



RAM 


25 


Variables, 


RANDOMIZE 


2 


names for 17 


Random numbers 


2-7 


string 4-5 


ranges of 


7 


use of 3 


also see games, guessing; 




VDU command, use of 


RND function; 




Acorn 28-29 


RANDOMIZE; tables, 
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COMING IN ISSUE 4 . .. 



CJGetyour pulse racing by adding SCORING 
AND TIMING routines to your games programs. 
There's lots of information on the routines you 
need, plus new games to try them on 

iJMake use of your computer's ability to handle 
large amounts of information with the BASIC 
commands READ and DATA -for anything from 
directories to screen graphics 

l^JIfyou need to write lots of letters and ensure that 
they all look neat and tidy, there's a simple TEXT 
EDITING PROGRAM to help you do just that 



A MARSHALL CAVLNt t| MFUTLH COURSE IN WHKLY PARTS 



.EARN PROGRAMMING - FOR FUN AND THE FUTURE 



(^Understanding how computers count is 
essential to machine code programs. To start with, 
learn about different number systems, and what 
makes BINARY so important 

CJTidy up your screen displays by learning how to 
make the best use of the formatting commands 
when you ask the computer to PRINT or INPUT 



J 



:sh 



£3 



F&p 
fc 



*M£ 






sp 



1>* 



PK 

&M 



{•fcft} 



'>^A 




?■*** 



^^■^^_ 



ASK YOUR NEWSAGENT FOR INPUT 
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